如何在不使用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