ActiveSheet.Range.Select返回错误462“远程服务器计算机不存在”]]

Question

这应该很简单，但是尝试了许多不同的代码变体之后，我看不到问题。第一次运行代码时，它选择单元格“ B4”到列的末尾。下次运行它时，出现错误426，“远程服务器计算机不存在或不可用”。然后我再次运行它，它可以正确运行。然后下一次我得到错误。等等疯狂！

Dim g_OBJ_EXCEL_APP As Excel.Application
Dim g_OBJ_EXcel_WB As Excel.Workbook
Dim str_Cell_Ref As String, str_excel_filename As String, strSheetName as String
Dim g_OBJ_EXCEL_WS As Excel.Worksheet
    Call sForceAllExcelProcessClose 'Just to make sure its not causing a problem I kill all Excel before I start
    Set g_OBJ_EXCEL_APP = New Excel.Application
    str_excel_filename = "\\ahw.cc2.zone\ahw$\Users\rotto_ahw-global.com\Documents\Sample1.xlsx"
    Set g_OBJ_EXcel_WB = g_OBJ_EXCEL_APP.Workbooks.Open(str_excel_filename)
    strSheetName = "Sheet1"
    Set g_OBJ_EXCEL_WS = g_OBJ_EXcel_WB.Worksheets(strSheetName)
    g_OBJ_EXCEL_APP.Application.Visible = True
    str_Cell_Ref = "B4"
    g_OBJ_EXCEL_WS.Range(str_Cell_Ref, Range(str_Cell_Ref).End(xlDown)).Select 'This is where the error occurs

    Set g_OBJ_EXcel_WB = Nothing
    Set g_OBJ_EXCEL_WS = Nothing
    Set g_OBJ_EXCEL_APP = Nothing
End Sub
衷心感谢您的协助。 

这应该很简单，但是尝试了许多不同的代码变体之后，我看不到问题。第一次运行代码时，它选择单元格“ B4”到列的末尾。下次运行它时，我...

Answer 1

命令行中的Range