s の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• s は削除されています。
• s の差分を削除

[[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