VBA Excelセルからテキスト/バッチファイルにデータを書き込む

Question

私は、ファイルパスをセルA1内に格納し、関数TODAY（）と連結してそのファイルパスを更新します。

ファイルをあるフォルダから別のフォルダに移動するバッチファイルもあります。私は現在、新しい移動バッチコマンドを得るために、この更新Excelセルを使用しています。

どのようにしてVBAを使用してセルA1のSheet1からバッチファイルにデータを自動的にコピーできますか？

バッチファイルは Cが格納されます。ここでは

update.batを\デスクトップ\バッチ\は、以下のコメントからのコード例であるが、私はちょうどそれがシート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