按钮（表单控件）运行宏不正确

Question

I've created a macro to export several tabs of a spreadsheet to csv files, then reopen the original document. Normally the macro runs correctly, however when run through a button it fails to find other sheets in the workbook.

The document contains 5 tabs: 1 for the button, and 4 for the data (hardcoded below). When I run the macro, it exports the 4 sheets correctly but when I press the button, it exports the first sheet 4 times (the one containing the button, not listed in the macro). All I can think is that the button is failing to pass the active workbook to the macro, and therefore it cannot "see" the Worksheets object...is there something I can do to fix this?

Note that all lines other than the SaveAs commands are (theoretically) unrelated. I have tried replacing "Worksheets" with "ActiveWorkbook.Worksheets" and gotten the same result.

Sub SaveAsCSVs()

Dim fullname As String
fullname = ThisWorkbook.fullname

Application.DisplayAlerts = False
Worksheets("Ships").SaveAs Filename:=ThisWorkbook.path & "\ships", FileFormat:=xlCSV
Worksheets("Weapons").SaveAs Filename:=ThisWorkbook.path & "\weapons", FileFormat:=xlCSV
Worksheets("Specials").SaveAs Filename:=ThisWorkbook.path & "\specials", FileFormat:=xlCSV
Worksheets("Modifiers").SaveAs Filename:=ThisWorkbook.path & "\modifiers", FileFormat:=xlCSV
Application.Workbooks.Open (fullname)
Application.DisplayAlerts = True
Workbooks("modifiers.csv").Close

End Sub

Answer 1

Strange, behavior, indeed...

Being a single sheet to be saved, please use the next adapted code. It should work in both cases:

Sub SaveAsCSVs()
 Dim fullname As String
 fullname = ThisWorkbook.fullname

Application.DisplayAlerts = False
Worksheets("Ships").Copy 'it creates a new workbook containing only the copied sheet...
   ActiveWorkbook.saveas FileName:=ThisWorkbook.Path & "\ships", FileFormat:=xlCSV
   ActiveWorkbook.Close False
Worksheets("Weapons").Copy
  ActiveWorkbook.saveas FileName:=ThisWorkbook.Path & "\weapons", FileFormat:=xlCSV
  ActiveWorkbook.Close False
Worksheets("Specials").Copy
  ActiveWorkbook.saveas FileName:=ThisWorkbook.Path & "\specials", FileFormat:=xlCSV
  ActiveWorkbook.Close False
Worksheets("Modifiers").Copy
  ActiveWorkbook.saveas FileName:=ThisWorkbook.Path & "\modifiers", FileFormat:=xlCSV
  ActiveWorkbook.Close False
'Application.Workbooks.Open (fullname) 'no need to open, it remained opened...
Application.DisplayAlerts = True
End Sub