nhn

--

募集をシェアしてメンターを探そう
シェア

※ この募集は締め切られました。

プログラミング VBA

MacでVBAを使って、セルの値をファイル名にしたテキストファイルを自動で作成したい

2021年2月13日
単発
予算
3,000円 〜 3,000円
提案数
1人が提案中
応募期限
終了

Macで、VBAを使って、自動的にテキストファイルを作成するツールを作りたいと思っています。
あるセルの値をファイル名にしてして、テキストファイルを書き出したいと思っているのですが、文字コードが違うせいか、エラーが出てしまいます。

以下のコードでエラーが出てしまうので、エラーが出ないように修正して頂けると助かります。

'テキストファイル出力
Public Sub TextOutput()

Dim R_data As Integer '行番号
Dim n As Integer '連番用
R_data = 5
n = 1

Do While Cells(R_data, 1) <> ""

Open "/Users/****/Desktop/" & Cells(R_data, "N").Value & ".txt" For Output As #1
Dim i As Integer
For i = 35 To 84
Print #1, Cells(R_data, i).Value
Next
Close #1
R_data = R_data + 1
n = n + 1
Loop

'終わったのが分かるようにメッセージを出す
MsgBox "完了!"

nhn

--

募集をシェアしてメンターを探そう
シェア