Question

我很抱歉，但三天之后我放弃了...所以我问的是一个非常简单的问题，但我找到的每个例子都会打开一个Excel文件或打开同一文件的只读版本，做一些事情在我的情况下，文件已经使用下面的代码从另一个宏打开，我似乎无法想象如何适应已经打开的文件？

我还想弄清楚如何从代码中将excel移动到活动窗口？我真的很感激任何帮助

Dim oApp As Object
Dim x As Variant
Dim sPath As String
Dim oExcel As Excel.Application
Dim oWB As Workbook
Dim oSheet As String

sPath = "E:\Special Folders\WWWRoot\temp.xlsx"
oSheet = "--Keywording--"

On Error Resume Next


    Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open(sPath)
    oExcel.Visible = True
    Sheets(oSheet).Select

    Range("A1:G1000").Clear
    Range("A1").Select

    Sheets(oSheet).Cells(1, 1).Select
    Sheets(oSheet).PasteSpecial (xlPasteAll)

    Range("A1").Select

Answer 1

很抱歉，你不能只打开Macro Recorder并得到你想要的东西吗？

Sub TryThis()
    Windows("SecondaryWorkbook.xlsb").Activate
    Range("A1").Select
    Windows("PrimaryWorkbook.xls").Activate
    Range("A1").Select
End Sub

我相信你需要处于相同的Excel实例中，否则这不会起作用。 AFAIK，Excel的不同实例根本不相互通信......

当Excel和文件已经打开时，从Word宏引用Excel？

1 个答案: