[[20210326130309]]　『VBA　CSVファイルの書き出し』（にわか小僧）　ページの最後に飛ぶ

『VBA　CSVファイルの書き出し』（にわか小僧）

VBAほぼ知識なくネットで拾ったものをコピペして利用する程度のにわかです。

バックアップファイルとCSVファイルを書き出したくてネットで拾ったソースをベースにCSVファイル用の情報も追記してみたのですが、うまくいきません。

解決策をご教授いただければ幸いです。

よろしくお願いします。

'バックアップファイル
Dim FileName, ExportFileName
FileName = Now() '現在の日付＋現在の時刻（日付まで）
ExportFileName = Now() '現在の日付＋現在の時刻（秒まで）

'バックアップ後のファイル名を作成
FileName = Format(FileName, "yyyymmdd") & "_データ作成.xlsm"
ExportFileName = Format(ExportFileName, "yyyymmddhhmmss") & "_書き出しファイル.csv"

'バックアップ元とバックアップ後のファイル名を設定
Dim Moto, Saki, Exp
Moto = ThisWorkbook.Path & "\データ作成.xlsm" 'バックアップ元のファイルパス
Saki = ThisWorkbook.Path & "\" & FileName 'バックアップ後のファイルパス
Exp = ThisWorkbook.Path & "\" & ExportFileName 'CSVのファイルパス

'参照設定
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

'フォルダをコピー
'False・・・上書き禁止（True：上書き許可）
FSO.CopyFile Moto, Saki, Exp, True

＜使用 Excel：Office365、使用 OS：Windows10 ＞

とりあえず、下記修正してみましょう。

 FSO.CopyFile Moto, Saki, Exp, True
　　　　　↓
 FSO.CopyFile Moto, Saki, True
 FSO.CopyFile Moto, Exp, True
　
（あ） 2021/03/26(金) 13:49

あさん、ありがとうございます！

二つのファイルとも書き出せました。

・・・追加で恐縮なのですが、
実は書き出されたCSVファイルの中身をメモ帳で確認したところ
「mｨ?ｻｸ?ﾀqX艢ﾜ邵}」のようにデータが文字化けしていました・・・

これを解消する事は可能でしょうか。

よろしくお願いいたします。
（にわか小僧） 2021/03/26(金) 13:58

エクセルファイルの拡張子を「csv」にしてコピーしているだけなので、そうなります。

CSVファイルで保存する方法は、たくさんネットに転がっているので、調べて見てください。

https://www.google.com/search?q=vba+csv+%E4%BF%9D%E5%AD%98&rlz=1C1GCEU_jaJP872JP872&sxsrf=ALeKk03lRL8BjO4vigM9k3Tvgx-6o_qjfA%3A1616735025720&ei=MWtdYO-_K5nj-AbI57CAAw&oq=VBA+%EF%BD%83%EF%BD%93%EF%BD%96&gs_lcp=Cgdnd3Mtd2l6EAMYAzICCAAyAggAMgIIADICCAAyAggAMgIIADICCAAyAggAOgcIIxCwAxAnOgcIABBHELADOgQIIxAnOgoIABCxAxCDARBDOgQIABBDOgoIABCxAxCDARAEOgYIABAEEAM6BQgAELEDOggIABCxAxCDAToECAAQBFDbEViZK2DTSGgCcAJ4AIABoQGIAaUFkgEDNS4ymAEAoAEBqgEHZ3dzLXdpesgBA8ABAQ&sclient=gws-wiz
（あ） 2021/03/26(金) 14:07

thisworkbookの拡張子がxlsxだかxlsmだかわかりませんが拡張子を勝手に変えたらそりゃ文字化けするんじゃないでしょうか

ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & ExportFileName, xlCSV
保存するならこっちじゃないですか
（田中） 2021/03/26(金) 14:14

あさん、田中さんありがとうございます！
助かりましたm(__)m
（にわか小僧） 2021/03/26(金) 14:25

コメント返信：

[ 一覧(最新更新順) ]

[[20210326130309]] 『VBA CSVファイルの書き出し』（にわか小僧） ページの最後に飛ぶ

[[20210326130309]]　『VBA　CSVファイルの書き出し』（にわか小僧）　ページの最後に飛ぶ