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

• #30529 alfa20 senior tag Delila_1 #30528

  Új Válasz 2016-02-11 14:34:31 #30529

  Ú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

  

  alfa20

  senior tag

  válasz Delila_1 #30528 üzenetére

  első lépésben egy textboxokba bekérem a fájlokat:

  Private Sub CommandButton1_Click()
  Dim fname As String
  fname = Application.GetOpenFilename()
  Munka1.TextBox1.Text = fname
  End Sub

  majd ezekből a TextBox-okból hívom meg a fájlokat, összesen 5 fájl-t kell betölteni:

  Dim file1 as string
  file1 = Munka1.TextBox1.Value
  Workbooks.Open Filename:=file1, UpdateLinks:=False

  A másolás helyét azt majd megadom a másolások után. a másolandó helyek is változók lesznek

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