ExcelVBA/CSVなど表形式のデータをLDIFなどの形式に変換するためのマクロ の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• ExcelVBA/CSVなど表形式のデータをLDIFなどの形式に変換するためのマクロ へ行く。
• ExcelVBA/CSVなど表形式のデータをLDIFなどの形式に変換するためのマクロ の差分を削除

[[FrontPage]]
#navi(../)


-CSVなど表形式のデータをLDIFなどの形式に変換するためのマクロ

  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

#navi(../)