データのエクスポートエクセルVBA

Question

は、私のような現在のワークシートに細胞内にいくつかのデータを生成する関数があるだろう。その代わり、現在のワークブックの現在のワークシートであることの

Cells(1, "A").Value = ... 
Cells(2, "A").Value = ... 
Cells(3, "A").Value = ... 
Cells(4, "A").Value = ... 

を、私はしたいですそれを作成してCSVファイルにロードして、パスを与えます。

セイC:\USERS\Documents\Sample.csv

私は

 ActiveWorkbook.SaveAs Filename:= _ 
"c:\MyFile.csv", FileFormat:=xlCSV _ 
, CreateBackup:=False 

のようなものを見てきました。しかし、私がしたいという、これは単に別の場所に現在のブックを保存しますが、私は、現在のワークシートのデータを生成し、保存しませんすぐに輸出？とにかくそれができますか？たぶんActiveWorkbook = //pathnameのようにして、それを有効にする？

Answer 1

VBAを使用してCSVに簡単に書き込むことができます。 例は次のようになります。

Sub WriteCSVFile() 

Dim My_filenumber As Integer 
Dim logSTR As String 

My_filenumber = FreeFile 

logSTR = logSTR & Cells(1, "A").Value & " , " 
logSTR = logSTR & Cells(2, "A").Value & " , " 
logSTR = logSTR & Cells(3, "A").Value & " , " 
logSTR = logSTR & Cells(4, "A").Value 

Open "C:\USERS\Documents\Sample.csv" For Append As #My_filenumber 
    Print #My_filenumber, logSTR 
Close #My_filenumber 

End Sub 

Answer 2

は、CSVとして新しく作成された本を.saveas、対象シートの新しい本を作るために.moveを使用してください。パス名を調整して、csvを保存するディレクトリを調整します。

Pathname = "" & Thisworkbook.path & "YourName.csv" 
    Sheets("Sheet you want as CSV").Move 
    ActiveWorkbook.SaveAs Filename:=PathName, _ 
     FileFormat:=xlCSV, CreateBackup:=False 

Answer 3

ただ、それぞれのシート名の名前が付いた新しいCSVファイルにワークブック内のすべてのシートを変換しますかなりシンプルでより使いやすいコードに@CharlieSmithによってコードを修正しました。

Sub WriteCSVFile() 
Dim i As Integer 
Dim WS_Count As Integer 

WS_Count = ActiveWorkbook.Worksheets.Count 
For i = 1 To WS_Count 
Dim ws As Worksheet 

Set ws = ThisWorkbook.Worksheets(i) 
    PathName = "" & ThisWorkbook.Path & "\" & ws.Name & ".csv" 
    ws.Copy 
    ActiveWorkbook.SaveAs Filename:=PathName, _ 
     FileFormat:=xlCSV, CreateBackup:=False 
Next i 

End Sub 

ホープこれは