前提
ExcelVBAで作成した下記マクロをlibreOffice環境でも実行しようとしましたが、
CSVファイル作成まではたどり着いたものの中身が空のファイルになってしまいます。
basicの規法等に詳しくない為、どなたか記法をご教授頂けないでしょうか?
やりたいこと
Excelの特定のセルに入力された値をcsvファイルに書き込みたい
コード
Option VBASupport 1 Sub Click() Dim csvFile As String Dim targetRange As Range Dim wb As Workbook Dim fso As Object '出力するCSVファイルを指定 csvFile = "D:\Test\sample.csv" 'CSVファイルへ出力する範囲を指定 ※例としてシート「sample」のセル「D8」を指定 Set targetRange = Worksheets("sample").Range("D8") '新規ブックを作成 Set wb = Workbooks.Add 'CSVファイルへ出力する範囲を新規ブックへコピー targetRange.Copy wb.Worksheets(1).Range("A1") Set fso = CreateObject("Scripting.FileSystemObject") '出力するCSVファイルが既に存在する場合は削除 If fso.FileExists(csvFile) Then fso.deleteFile csvFile End If '新規ブックをCSVファイルとして出力 wb.SaveAs Filename:=csvFile, FileFormat:=xlCSV, Local:=True '新規ブックを保存せずに閉じる wb.Close SaveChanges:=False '後片付け Set fso = Nothing End Sub
あなたの回答
tips
プレビュー