VBA Excel 셀에서 텍스트/일괄 파일로 데이터 쓰기

Question

셀 A1 내에 파일 경로를 저장하고 함수 TODAY()와 연결하여 해당 파일 경로를 업데이트하는 Excel 파일이 있습니다.

또한 파일을 한 폴더에서 다른 폴더로 이동할 배치 파일이 있습니다. 나는 현재이 엑셀 셀을 사용하여 새로운 배치 배치 명령을 얻는다.

어떻게 VBA를 사용하여 셀 A1의 Sheet1에서 배치 파일로 데이터를 자동으로 복사 할 수 있습니까? 여기

는 코멘트에 들어있는 예제 코드는 다음과 같습니다 update.bat \ 바탕 화면 \ 일괄 \하지만 난 그냥

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") 

A1

시트 1 셀에서 데이터를 복사 할 :

배치 파일은 C를 저장

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