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

• #43102 zsolti_20 senior tag

  Új Válasz 2020-02-21 22:12:52 #43102

  Ú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

  

  zsolti_20

  senior tag

  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:A2").Copy
ThisWorkbook.Worksheets("asd").Range("A1").PasteSpecial xlPasteValues
OpenBook.Close False
End If
Application.ScreenUpdating = True
End Sub

  Ezt a macrot találtam amivel egyik excel filebol a másikba át tudom másolni az adatokat. A problémám vele, hogy csak cellából cellába tudok. Megoldható egy kissebb átalakítással hogy az excel fileban lévő sheet neveket emelje át a cellába?

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