ユーザー登録で「300円クーポン」プレゼント!まずは無料登録から!
募集をシェアしてメンターを探そう
シェア
エンジニア VBA

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

2月13日
予算
3,000円 〜 3,000円
提案数
2人が提案中

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 "完了!"

メンティーに提案してみましょう
募集をシェアしてメンターを探そう
シェア