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.
nasıl not defteri ile xL'in açabilir? – Davesexcel
Tek yapmak istediğiniz dosyayı yeniden adlandırmak mı? –
Shell kullanarak ("C: \ WINDOWS \ notepad.exe" & ThisWorkbook.path & "\" & flname, 1) – user6134630