我之前也踩过这个坑！明明Excel文件保存时已经把视图拉到最顶部了，嵌入到Word后却偶尔会随机滚到中间，太闹心了。不用SendKeys也能搞定，试试下面的方法：

核心解决方案：主动设置Excel视图滚动位置 #

不管是嵌入时还是后续修改OLE对象，激活后直接强制让Excel窗口滚动到顶部，同时确保选中A1单元格（可选，但能强化视图定位）。修改你的代码如下：

方法1：修改现有OLE对象时的处理 #

Set objOLE = ActiveDocument.InlineShapes(3).OLEFormat
objOLE.Activate

' 关键代码：强制定位到表格顶部
With objOLE.Object.ActiveWindow
    ' 直接设置滚动行和列到第一行第一列
    .ScrollRow = 1
    .ScrollColumn = 1
    ' 可选：选中A1单元格，确保视图聚焦到起始位置
    objOLE.Object.ActiveSheet.Range("A1").Select
End With

' 你的原有赋值逻辑
objOLE.Object.ActiveSheet.Cells(1, 3).Value = Format(Funds, "#,###0")

' 重要：保存嵌入的Excel内容，确保视图状态被记录
objOLE.Object.Save

' 退出并释放资源
objOLE.Object.Application.Quit
Set objOLE = Nothing
DoEvents

方法2：嵌入时直接设置视图 #

如果你希望嵌入完成后就直接显示顶部，可以在AddOLEObject后立即处理：

Set IllSheet = ActiveDocument.Bookmarks("example1").Range.InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.12", filename:=filename1, LinkToFile:=False)
Set objOLE = IllSheet.OLEFormat
objOLE.Activate

' 强制定位到顶部
With objOLE.Object.ActiveWindow
    .ScrollRow = 1
    .ScrollColumn = 1
End With

' 保存状态后退出
objOLE.Object.Save
objOLE.Object.Application.Quit
Set objOLE = Nothing
DoEvents

额外注意事项 #

• 如果你的Excel文件有多个工作表，记得先激活目标工作表再设置滚动，比如：objOLE.Object.Sheets("你的工作表名").Activate
• 一定要调用objOLE.Object.Save，否则视图状态不会被保存，下次打开Word可能又回到中间位置
• 操作完成后释放对象（Set objOLE = Nothing），避免内存占用问题

内容的提问来源于stack exchange，提问作者M.Hung