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