Importing Files

[Ryujin]

Good Morning Friends ,

I need help to get a fuction to import Excel Files with VBA ,
I need to import the File it is entered in a Worksheet with the Name "Info" .

For Help you I will send the Excel that im working and the Excel that I want to import

Best Regards and ty

 

[Ruddles]

Something like this perhaps:-

Option Explicit

Public Sub ImportWorkbook()

  Dim wbImport As Workbook
  Dim wsImport As Worksheet
  
  Set wbImport = Workbooks.Open("[COLOR=#FF0000][B]C:\filename.xlsx[/B][/COLOR]"[COLOR=#FF0000][/COLOR], , True)   [COLOR=#008000] ' the workbook containing the sheet you want to import[/COLOR]

  Set wsImport = wbImport.Sheets("[COLOR=#FF0000][B]Sheet1[/B][/COLOR]")                             [COLOR=#008000] ' the first worksheet you want to import[/COLOR]
  wsImport.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

  Set wsImport = wbImport.Sheets("[COLOR=#FF0000][B]Sheet2[/B][/COLOR]")                             [COLOR=#008000] ' the second worksheet you want to import, etc[/COLOR]
  wsImport.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

  wbImport.Close SaveChanges:=False
  
End Sub

 

[Ryujin]

Thats not Working

 

[Ruddles]

Could u help me?
The Quote that u gived that not working

I tested it here and made sure it was working. Please show me the code you're using after you put the correct filename and sheetname in.

1. Did you paste it into a general code module?

2. How did you run the code?

3. Does it give you any error messages?

4. If you step through it, how far does it get?

 

[AliGW]

Cross-posted on four other forums.

 

[Ryujin]

But your code just work on the File that i put the name on the code?

 

[Ryujin]

Imagine .
i have 3 files with the name ... Ola.xlsm Adeus.xlms obrigado.xlms .
i want to be able to import that Files !
BUUUT if in another day appears another one , the program accept it to without touching in the code
Basically we need to accept all files that i want

Ty for the Help Sr.

 

[Ruddles]

The file that you want to import: is it a single worksheet?

 

[Ryujin]

Nooo its a Multi Worksheet

 

[Ruddles]

And do you want all of the sheets imported or just one?