Excelシートをタブ区切りのテキストファイルとして保存するVBAコード

Question

このコードを見つけて試しました。それは正常に動作しますが、保存されたテキストファイルでは、最初の列には（すべての行に対して）空白があります。私はこのコードを修正することができません。助けてください。

Sub ExportRange() 
Dim ExpRng As Range 
Open ThisWorkbook.Path & "\AllDXL.txt" For Output As #1 
Set ExpRng = Worksheets("Sheet1").Range("A1").CurrentRegion 
FirstCol = ExpRng.Columns(1).Column 
LastCol = FirstCol + ExpRng.Columns.Count - 1 
FirstRow = ExpRng.Rows(1).Row 
LastRow = FirstRow + ExpRng.Rows.Count - 1 
For r = FirstRow To LastRow 
Data = "" 
For c = FirstCol To LastCol 
    ' data = ExpRng.Cells(r, c).Value 
    Data = Data & vbTab & ExpRng.Cells(r, c).Value 
Next c 
Print #1, Data 
Next r 
Close #1 
End Sub 

Answer 1

最初のセルも含めて、各セルに接頭辞はvbTabです。次のように変更します。

Data = Data & vbTab & ExpRng.Cells(r, c).Value 

また

If c = FirstCol Then 
    Data = Data & ExpRng.Cells(r, c).Value 
Else 
    Data = Data & vbTab & ExpRng.Cells(r, c).Value 
End If 

に、常に各ライン上のいくつかのデータが存在する場合は、あなただけでPrint段階で、各ラインからの最初のvbTabを取り除くことができます：

0123に

Print #1, Data 

を変更

Print #1, Mid(Data, 2, Len(Data)-1) 

Answer 2

また、これは...

Sub ExportRange() 
Dim ExpRng As Range 
Dim myTab As String 
Open ThisWorkbook.Path & "\AllDXL.txt" For Output As #1 
    Set ExpRng = Worksheets("Sheet1").Range("A1").CurrentRegion 
    FirstCol = ExpRng.Columns(1).Column 
    LastCol = FirstCol + ExpRng.Columns.Count - 1 
    FirstRow = ExpRng.Rows(1).Row 
    LastRow = FirstRow + ExpRng.Rows.Count - 1 
    For r = FirstRow To LastRow 
     Data = "" 
     For c = FirstCol To LastCol 
      If c = 1 Then myTab = "" Else myTab = vbTab 
     ' data = ExpRng.Cells(r, c).Value 
      Data = Data & myTab & ExpRng.Cells(r, c).Value 
     Next c 
     Print #1, Data 
    Next r 
Close #1 
End Sub