How to solve run-time error #9

[Kenor]

Hi All,

Need anyone's help to view this VBA code.

I'm not sure what's wrong. Repeated edits, but still came out error #9.

Sub datasheet()

Application.DisplayAlerts = False
Worksheets(Array("FG_Store Bundle", "FG _Ship Bundle")).Delete --> Is there something wrong here ??
Application.DisplayAlerts = True


Workbooks("FG_Store Bundle.csv").Worksheets("FG_Store Bundle").Copy After:=Workbooks("FG Database Bundle.xlsm").Worksheets("Database")
Workbooks("FG_Ship Bundle.csv").Worksheets("FG_Ship Bundle").Copy After:=Workbooks("FG Database Bundle.xlsm").Worksheets("FG_Store Bundle")


Dim bk As Workbook
For Each bk In Workbooks
If Not (bk Is ThisWorkbook) Then
bk.Close SaveChanges:=False
End If
Next


Workbooks("FG Database Bundle.xlsm").Activate
Worksheets("cover sheet").Activate

End Sub

 

[RoryA]

It looks like you have a space before the underscore in "FG _Ship Bundle" which I don't think should be there.

 

[Alex Blakenburg]

Is this actually a different question than what you asked here:
How to import multiple csv files into one excel file ?
At that point all your sheet names had 2 underscores in them, a 2nd one before the work Bundle.

Worksheets(Array("FG_Pack_Bundle", "FG_Store_Bundle", "FG_Ship_Bundle", "FG_Pack_Bag", "FG_Store_Bag", "FG_Ship_Bag")).Delete

In which case your line should be:-

Worksheets(Array("FG_Store_Bundle", "FG _Ship_Bundle")).Delete

 

[Kenor]

I have remove the underscore.

But still have error..

Sub datasheet()

Application.DisplayAlerts = False
Worksheets(Array("FG Store Bundle", "FG Ship Bundle")).Delete
Application.DisplayAlerts = True


Workbooks("FG Store Bundle.csv").Worksheets("FG Store Bundle").Copy After:=Workbooks("FG Database Bundle.xlsm").Worksheets("Database")
Workbooks("FG Ship Bundle.csv").Worksheets("FG Ship Bundle").Copy After:=Workbooks("FG Database Bundle.xlsm").Worksheets("FG Store Bundle")


Dim bk As Workbook
For Each bk In Workbooks
If Not (bk Is ThisWorkbook) Then
bk.Close SaveChanges:=False
End If
Next


Workbooks("FG Database Bundle.xlsm").Activate
Worksheets("cover sheet").Activate

End Sub

 

[Kenor]

Is this actually a different question than what you asked here:
How to import multiple csv files into one excel file ?
At that point all your sheet names had 2 underscores in them, a 2nd one before the work Bundle.

In which case your line should be:-

Worksheets(Array("FG_Store_Bundle", "FG _Ship_Bundle")).Delete

Yes, because it is still unresolved. So, I pulled out a few name sheets into just two.

Does it affect this VBA code if I remove all underscores on all sheet names?

 

[Alex Blakenburg]

Take a screenshot of your VBA project window and show us all your sheet names eg.

 

[Fluff]

Duplicate to: How to import multiple csv files into one excel file ?

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.