VBA 将 Excel 单元格中的数据写入 Text/Batch 文件

Question

我有一个 Excel 文件，它在单元格 A1 中存储文件路径并与函数 TODAY() 连接以更新该文件路径。

我还有一个批处理文件，可以将文件从一个文件夹移动到另一个文件夹。我目前使用此更新 excel 单元格来获取新的移动批处理命令。

如何使用VBA将A1单元格Sheet1中的数据自动复制到批处理文件中？

批处理文件已存储 C:\Desktop\Batch\update.bat

这是下面评论中的示例代码，但我只想让它从 Sheet 1 和单元格 A1

复制数据

Dim FilePath As String
Dim CellData As String
Dim LastCol As Long
Dim LastRow As Long

LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

FilePath = "C:\Batch\copy.bat"

Open FilePath For Output As #2

For i = 1 To LastRow

    For j = 1 To LastCol

        If j = LastCol Then

            CellData = CellData + Trim(ActiveCell(i, j).Value)

        Else

            CellData = CellData + Trim(ActiveCell(i, j).Value) + ","

        End If

    Next j

    Write #2, CellData
    CellData = ""

Next i

Close #2

MsgBox ("Done")

Answer 1

Dim FilePath As String
Dim CellData As String

FilePath = "C:\Batch\copy.bat"

Open FilePath For Output As #2

r = Worksheet("Sheet1").Range("A1").Text

Print #2 r

VBA 将 Excel 单元格中的数据写入 Text/Batch 文件

VBA Write Data From Excel Cell to Text/Batch File

excel

vba

batch-file

updates