Vba 从不同的工作表将列范围导出到文本文件

我正在尝试获取一个宏，以将数据从A1范围复制到第二个工作表中a列中的最后一个单元格。此代码将文件输出到与excel工作簿相同的目标，但文件为空，我不确定原因。它当前正在以.txt格式导出，我希望它以.prox格式导出，但我不确定将输出名称更改为“ExportedData.prox”是否会影响数据

Sub OpenTextFile()

Dim FilePath As String
Dim LastRow As Long
Dim CellData As String
Dim WS2 As Worksheet
Dim WS1 As Worksheet


Set WS1 = Worksheets(1)
Set WS2 = Worksheets(2)

WS2.Activate

FilePath = ThisWorkbook.Path & "\" & "ExportedData.txt"
LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Open FilePath For Output As #1
For i = 1 To LastRow
CellData = ActiveCell(i).Value
Print #1, CellData
Next i
Close #1

WS1.Activate

MsgBox "Done", vbMsgBoxSetForeground

End Sub

试试这个（未经测试）：

子OpenTextFile（）
将文件路径设置为字符串
最后一排一样长
将单元格数据设置为字符串
将WS2设置为工作表
将WS1设置为工作表
设置WS1=工作表（1）
设置WS2=工作表（2）
FilePath=thispoolk.Path&“\”和“ExportedData.prox”
LastRow=WS2.UsedRange.SpecialCells（xlCellTypeLastCell）.Row
打开输出为#1的文件路径
对于i=1到最后一行
CellData=WS2.Cells（i，1）.Value'
Sub OpenTextFile()

    Dim FilePath As String
    Dim LastRow As Long
    Dim CellData As String
    Dim WS2 As Worksheet
    Dim WS1 As Worksheet


    Set WS1 = Worksheets(1)
    Set WS2 = Worksheets(2)

    FilePath = ThisWorkbook.Path & "\" & "ExportedData.prox"
    LastRow = WS2.UsedRange.SpecialCells(xlCellTypeLastCell).Row

    Open FilePath For Output As #1
    For i = 1 To LastRow
        CellData = WS2.Cells(i, 1).Value '<< assumes ColA is being exported
        Print #1, CellData
    Next i
    Close #1

    WS1.Activate

    MsgBox "Done", vbMsgBoxSetForeground

End Sub