s の履歴(No.1)

• 履歴一覧
• ソース を表示
• s は削除されています。
  • 1 (2010-09-22 (水) 12:45:34)

FrontPage

Option Explicit
Sub test()
    Dim varValueData() As Variant       '//２次元配列データ
    Dim strRowData(1000) As String      '//1行のデータを連結した１次元配列
    Dim strTemp As String
    Dim m As Long
    Dim n As Long
    Dim h As Long
    varValueData = ThisWorkbook.Worksheets("sheet2").Range("A1:E25").Value
    
    '取得できた全データ書き出しと連結格納
    'ReDim strRowData(LBound(varValueData, 1) To UBound(varValueData, 1))
    
    h = 1
    For m = LBound(varValueData, 1) To UBound(varValueData, 1)
        For n = LBound(varValueData, 2) To UBound(varValueData, 2)
            h = h + 1
            strTemp = ""
            
            'Debug.Print "[" & CStr(m) & ":" & CStr(n) & "]" & CStr(varValueData(m, n))
            
            strTemp = CStr(varValueData(m, n))
            strRowData(h) = strTemp
            Debug.Print strTemp
            Call actPrint(strTemp)
        Next
    Next

End Sub

Function actPrint(strTemp As String)
    Dim intFF As Integer            ' //FreeFile値
    Const cnsFILENAME = "\SAMPLE.txt"
    ' FreeFile値の取得(以降この値で入出力する)
    intFF = FreeFile
    ' 指定ファイルをOPEN(出力モード)
    Open ThisWorkbook.Path & cnsFILENAME For Append As #intFF
    Print #intFF, strTemp
    Close #intFF
    Debug.Print strTemp

End Function