Új hozzászólás Aktív témák

• #5954 Cuci3 tag Pulsar #5953

  Új Válasz 2010-01-09 11:34:55 #5954

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Cuci3

  tag

  válasz Pulsar #5953 üzenetére

  Annyi a gon, hogy nem a FullName-et kell használnod, csak a Name-et. FullName az elérési útvonalat is tartalmazza (c:\blblbla.xls), míg a Name csak a fájl nevét és kiterjesztését (blablabla.xls).
  Lentebb az átírt kód, kommentált kód. Bocs, de az elérési utat, fájlneveket nem volt kedvem visszaírni.

  Option Explicit 'deklarálás nélkül nem lehet változót használni
  Sub masolas_adat()
  
  Dim excel_filename, filename2 As String
  
  excel_filename = ThisWorkbook.Name
  
  Workbooks.Open Filename:="E:\Munkafüzet2.xls"
  filename2 = ActiveWorkbook.Name
  'én azért ide tennék valami kiválasztást, hátha megnyitás után rossz sheet az aktív
  Columns("A:G").Select
  Selection.Copy
  
  Windows(excel_filename).Activate
  Sheets("Munka2").Activate
  'Workbooks(excel_filename).Sheets("Munka2").Activate
  'én jobban szeretem a Workbooks(excel_filename) hivatkozást, de mind1
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  
  Application.CutCopyMode = False
  
  Windows(filename2).Activate
  'vagy Workbooks(filename2).Activate
  ActiveWindow.Close
  
  Application.CutCopyMode = True 'Biztos kel ez a sor? Nekem tök felelslegesnek tűnik.
  End Sub

Új hozzászólás Aktív témák