コピー.csvファイル

Question

私はコードの下に実行されているが、同じ形式で開いたメモ帳ファイルを保存することができません、コードは現在、ダイアログボックスがここに開き、「名前を付けて保存」

Dim mytxtfile 
Dim flname, flname2 As String 
flname = Dir(ThisWorkbook.path & "\" & "myfile.csv") 
flname2 = ThisWorkbook.path & "\" & "myfile_1.txt" 
mytxtfile = Shell("C:\WINDOWS\notepad.exe " & ThisWorkbook.path & "\" & flname, 1) 
AppActivate mytxtfile 
SendKeys "%(FAX)", True 
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2) 
SendKeys "%S", True ' 

を下回っているが、 flname2（myfile_1.txt）にあるファイル名を与えて、メモ帳を保存して閉じる。

Answer 1

コピーファイルシステムオブジェクトを使用してファイル：

Set objFSO = CreateObject("Scripting.FileSystemObject") 

objFSO.CopyFile ThisWorkbook.path & "\" & "myfile.csv", ThisWorkbook.path & "\" & "myfile_1.txt"