如何在不使用Workbook_Open的情況下在特定行上打開工作簿？

Question

我有一個工作宏，可以創建一個新工作簿，對其進行寫入，然后通過電子郵件將其發送給客戶端。

該工作簿在工作簿的第一行上打開，並且客戶端需要向下滾動以查找所需的數據。 我希望在文件的中間行中打開Excel文件。

由於安全原因，該工作簿不能包含宏。 因此，在Workbook_Open()方法上編寫代碼以轉到特定行是不可行的。

Answer 1

如果您具有VBA代碼，請選擇給定的Range並在發送之前使其在屏幕上可見，則該范圍應該是所選范圍，並且在直接從附件中打開時可見。 按照OP的要求，您不需要工作簿包含任何VBA代碼。

我使用下面的代碼創建了工作簿，然后手動選擇了“ 通過電子郵件發送” （如果通過VBA完成，則應該無關緊要），將其發送給自己，然后從附件中打開它。

Sub create_wb_select_range()
    Dim wb As Workbook
    Set wb = Workbooks.Add
    Dim ws As Worksheet
    Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    Dim wsname As String
    wsname = "MySheet"
    ws.Name = wsname
    Dim rngname As String
    rngname = "J68"
    ws.Range(rngname).Select
End Sub