Kod bankasından şöyle bir kod bulmuştum. txt yi excele atıyor,
txt yi aldığımız zaman da çektiğimiz txt nin ismi neyse ilk sayfayı onun ismi haline getiriyor. istediğim şey de bu fakat dosyayı kaydederken su makroyu kullanıyorum
ama kaydettiğimde yanlızca aktif sayfayı kaydediyor,tüm çalışma sayfasını kaydetmeyi nasıl yapabilirim,birde txt den excele ilk aktardığımda(ilk makro) çalışma kitabının uzantısı .txt olarak gözüküyor, bu iki sorunu nasıl çözebilirim yardımcı olursanız çok sevinirim.
Kod:
pir = Application.GetOpenFilename("Txt-Dosyası , *.TXT")
Workbooks.OpenText Filename:=pir, Origin:=xlWindows _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)txt yi aldığımız zaman da çektiğimiz txt nin ismi neyse ilk sayfayı onun ismi haline getiriyor. istediğim şey de bu fakat dosyayı kaydederken su makroyu kullanıyorum
Kod:
Sub Kayit()
Dim fn As Variant
fn = Application.GetSaveAsFilename(" ENVANTER.xls", _
"Excel files,*.xls", 1, "")
ActiveWorkbook.SaveAs fn
End Subama kaydettiğimde yanlızca aktif sayfayı kaydediyor,tüm çalışma sayfasını kaydetmeyi nasıl yapabilirim,birde txt den excele ilk aktardığımda(ilk makro) çalışma kitabının uzantısı .txt olarak gözüküyor, bu iki sorunu nasıl çözebilirim yardımcı olursanız çok sevinirim.