LibreOfficeでCSV形式のファイルを出力するマクロを作成したい

Question

現在、LibreOfficeで、セルに入力された内容をCSV形式で出力するマクロを作成しています。

とりあえず、ネット上にあるソースをそのままコピペしてテストしてみたのですが、
プログラムはエラーなく正常に動くものの、結果ファイルには何も出力されていません。

なぜファイルに何も出力されないのか、お分かりになる方がいらっしゃいますでしょうか？

ちなみに、テストデータは、セルA1から横に、テスト1,テスト2,テスト3,……とデータが並んでいます。

Sub makeText()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("テスト")
 
Dim csvFile As String
csvFile = ActiveWorkbook.Path & "\data.csv"
 
Open csvFile For Output As #1
 
Dim i As Long, j As Long
i = 1
 
Do While ws.Cells(i, 1).Value <> ""
 
    j = 1
 	Do While ws.Cells(i, j + 1).Value <> ""
 	
        Print #1, ws.Cells(i, j).Value & ",";
        j = j + 1
 
    Loop
 
    Print #1, ws.Cells(i, j).Value & vbCr;
    i = i + 1
 
Loop 
 
Close #1
 
MsgBox "data.csvに書き出しました"
 
End Sub

Answer 1

LibreOfficeBasicではA1は（0,0）になりB1は（1,0)ですが
VBAはA1は（1,1)でB1は（1,2）です。

回答になっていないと思いますが、
LibreOfficeBasiｃではCells(1,1)のような
記述はありません。

Comments

[momonoki]

ありがとうございます。
ExcelとLibreではところどころ文法が違うようですね。
調べつつやってみます！

Answer 2

LibreOfficeのマクロと、ExcelのVBAでは、関数名などが違います。
質問に書かれたコードはExcel VBAのものなので、残念ながらLibraOfficeのマクロとしては機能しません。
ファイルに書き込まれなかったのは、そのせいです。

コードの最初に、"Option VBASupport 1"という行を加えると、LibraOfficeでExcel VBAのプログラムが動くという記事がありました。
LibreOfficeでVBAを使う方法。1行おまじないを書くだけ！
試みてください。（LibreOfficeを使っていないので、確認していません）

どうしてもダメなら、LibraOffice流にコードを書き換えてください。
LibreOfficeマクロ入門講座 最低限知っておきたいこと
などのページが参考になると思います。

Comments

[momonoki]

ご回答ありがとうございます。
"Option VBASupport 1"という一行は加えていたのですが、それだけでは不十分なようですね。
いただいたURLを参考にLibre流に書き直してみます。