1

我写了一个子程序，应该将工作表 2 保存为一个带有时间戳的 csv 文件。我让用户使用 get path sub 选择文件路径，然后当用户单击“确定”时，程序失败并说

run time error 9, subscript out of range.

你能帮我弄清楚我的程序在哪里/为什么要这样做吗？ 

Public Sub save()

Dim x As Integer
Dim FName As String

x = MsgBox("Are you sure?!?", vbYesNo, "Send File")
If x <> vbYes Then
GoTo Send_file_end:
End If

FName = get_path & "cambs_uplaoded_trades" & Format(Time, "hh mm ss") & ".csv"
ActiveWorkbook.Worksheets("sheet2").SaveAs Filename:=FName, FileFormat:=xlCSV
MsgBox "saved "

Send_file_end:
End Sub

这是我的获取路径功能

Function get_path() As String
Dim dlg As Variant

Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
dlg.AllowMultiSelect = False

If dlg.Show <> -1 Then
get_path = ""
Else
get_path = dlg.SelectedItems(1) & "\"
End If

End Function
4

1 回答 1

0

所以我会告诉你我的解决方案，以防你感兴趣：

Sheets("Sheet2").Activate
FName = get_path & "cambs_uplaoded_trades" & Format(Time, "hh mm ss") & ".csv"
ActiveWorkbook.Worksheets("Sheet2").SaveAs Filename:=FName, FileFormat:=xlCSV
MsgBox "saved "
ActiveSheet.Name = "Sheet2"
Sheets("Sheet1").Activate

因此，我在更改名称之前激活了工作表二，然后将其保存，然后我将活动工作表的名称更改回 sheet2。

感谢您的输入！

于 2013-05-13T16:01:43.853 回答