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

• #50167 lappy őstag Pá #50166

  Új Válasz 2023-01-02 10:13:53 #50167

  Ú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

  

  lappy

  őstag

  válasz Pá #50166 üzenetére

  Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A1:Z200").Copy
ThisWorkbook.Worksheets("SelectFile").Range("A1").PasteSpecial xlPasteValues
OpenBook.Close False

End If
Application.ScreenUpdating = True
End Sub
  A Sheet(1) -nél az 1 helyére adhatod meg hogy hányadik munkafüzet legyen
  Még azt nem sikerült megcsinálnom hogy a munkafüzetek közül is lehessen választani
  ezzel bemásolod az adatokat és innen veszed át az indirekt függvényekkel ami kell

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