Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

520 / 76735

←次へ　｜　前へ→


	【81882】csvへの保存について

ken - 21/10/3(日) 10:14 -


	引用なし

	パスワード

いつもお世話になっております。
vba勉強中です。
何方かご教授ください。

ワークシートをcsv形式で保存したいのですが
他のアプリケーションで読み込もうとしても読み込めません。
一度開いて再度csv(カンマ区切り)を指定して保存すると読み込めます。
保存の仕方が間違っているのでしょうか？

Sub test()
　Dim wb As Workbook, wb2 As Workbook
　Dim ws1 As Worksheet, ws2 As Worksheet
　Dim f_name As String
　　Set wb = ThisWorkbook
　　Set ws1 = wb.ActiveSheet
　　ws1.Copy
　　Set wb2 = ActiveWorkbook
　　Set ws2 = wb2.ActiveSheet
　　f_name = "C:\Users\デスクトップ\" & ws2.Name & ".csv"

　　If Dir(f_name) <> "" Then
　　　　Application.DisplayAlerts = False
　　　　wb2.SaveAs f_name
　　　　Application.DisplayAlerts = True
　　Else
　　　　wb2.SaveAs f_name
　　End If
　　wb2.Close
End Sub

7 hits

▼

【81882】csvへの保存について ken 21/10/3(日) 10:14