Excel-VBA代码将工作表另存为制表符分隔的文本文件

Question

我使用了MiguelH提供的VBA code to save Excel sheet as tab-delimited text file代码。

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

当我运行代码时，我得到运行时错误＆＃39; 9＆＃39;：下标超出范围。

我错过了什么？我是一个新手，想要了解代码是如何工作的......在我尝试修改代码以获得我需要的结果之前。 从我在研究错误中发现的情况来看，它通常似乎意味着对象丢失了？即，不在目录中？ 正如我所说，我是excel-vba的新手，所以请随意为我愚蠢。 PS。我想在引用的帖子中发表评论......但是没有足够的分数......