2016-03-30 11 views
0

bir .csv dosyası, kodKopya kod ama aynı formatta açılan not defteri dosyasını kaydedemedi altında çalıştırıyorum .txt dosyası

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 ' 

şimdi iletişim kutusu burada açılır "Farklı kaydet" ama altındadır flname2 yani (myfile_1.txt) dosya adını vermek istiyorum ve sonra not defterini kaydedip kapatın.

+1

nasıl not defteri ile xL'in açabilir? – Davesexcel

+0

Tek yapmak istediğiniz dosyayı yeniden adlandırmak mı? –

+0

Shell kullanarak ("C: \ WINDOWS \ notepad.exe" & ThisWorkbook.path & "\" & flname, 1) – user6134630

cevap

0

Kopya Dosya Sistemi Nesnesi kullanarak dosya:

Set objFSO = CreateObject("Scripting.FileSystemObject") 

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

harika, @MikeC – user6134630

+0

iyi çalışıyor, bu yüzden oy verin ve kabul cevap (yardımın her ikisinin de nasıl yapılacağı hakkında bilgi olmalı) – MikeC

İlgili konular