VBA in Excel - 粘贴到活动单元格，然后按 Tab Right

Question

我在 Excel VBA 方面需要一些帮助。我在 Excel 和另一个应用程序之间来回切换，并从另一个应用程序复制、粘贴到 Excel。我已经完成了该过程，但我需要有关如何粘贴到当前活动的任何单元格的建议，向右制表，然后在该行的末尾向下一行，然后从 D 列开始。实际上，这是我需要在 Excel 应用程序中进行的确切过程的列表：

[数字格式] 粘贴到当前活动的单元格中（将始终在 D:D 列中）
向右移动一个单元格
[日期格式："d-mmm"]今天的日期
Tab 右
[文本]粘贴
Tab 右
[会计]粘贴
Tab 右
在该列中输入字母 "X"
向下输入一行，从 D 列开始。

在所有这些步骤之间，我找出了与其他应用程序交互的大部分代码。但我对此也有一个问题——在那个应用程序中，我是运行这个声明：

With ATC.ActiveSession（ATC只是引用应用程序的类型库来与其他应用程序交互）

与我在每次应用程序来回复制和粘贴时结束 With 语句相反，我需要做些什么作为 with 语句来使用 excel的图书馆？

我不想发生的事情的例子：

Sub New_ATS()

    Set ATC = GetObject(, "ATWin32.AccuTerm")

    AppActivate "AccuTerm 2K2"
    With ATC.ActiveSession
        .InputMode = 1
        .SetSelection 6, 15, 12, 15
        .Copy
        .InputMode = 0
    End With
    AppActivate "Microsoft Excel"
        Selection.Paste '(not complete, part of question)
        Selection.Offset 1, 0 'again, part of the question
    AppActivate "AccuTerm 2K2"
    With ATC.ActiveSession
        .InputMode = 1
        .SetSelection 14, 3, 20, 3
        .Copy
        .InputMode = 0
    End With
    AppActivate "Microsoft Excel"
    ' .... end of partial code (continues on)
End Sub

但相反，我想 'chain' With 语句，但我不知道我会用什么语句来指向 Excel 的 VBA.这就是我想要的：

Sub New_ATS()

    Set ATC = GetObject(, "ATWin32.AccuTerm")

    AppActivate "AccuTerm 2K2"
    With ATC.ActiveSession
        .InputMode = 1
        .SetSelection 6, 15, 12, 15
        .Copy
        .InputMode = 0
        With Excels_Statement '?????
            AppActivate "Microsoft Excel"
            Selection.Paste '(not complete, part of question)
            Selection.Offset 1, 0 'again, part of the question
            AppActivate "AccuTerm 2K2"
            With ATC.ActiveSession
                .InputMode = 1
                .SetSelection 14, 3, 20, 3
                .Copy
                .InputMode = 0
                With Excels_Statement '????
                    AppActivate "Microsoft Excel"
                End With
            End With
        End With
    End With

    ' .... end of partial code (continues on)
End Sub

Answer 1

我没有安装 AccuTerm，但我认为您可以粘贴到 Excel 而不必每次都激活它。除了使用 With 块，您还可以通过最少的输入来分配一个对象变量……这不是变量命名的最佳实践，但它可以解决问题。声明特定类型的变量将使您可以访问 Excel 的库。

这是我的想法...（部分测试所以您可能需要稍微调整一下）

Sub New_ATS()

    Set ATC = GetObject(, "ATWin32.AccuTerm")
    Dim Sesh as ATWin32.AccuTerm.Session  'Not sure this exists
    Dim XL as Excel.Range

    AppActivate "AccuTerm 2K2"
    Set Sesh = ATC.ActiveSession

    Sesh.InputMode = 1
    Sesh.SetSelection 6, 15, 12, 15
    Sesh.Copy
    Sesh.InputMode = 0

    'AppActivate "Microsoft Excel" - don't need it
    Set XL = application.activecell
    XL.PasteSpecial
    Set XL = XL.offset(0,1)

    'AppActivate "AccuTerm 2K2" - no need, still active
    Sesh.InputMode = 1               'Once this is set, do you need to set it again?
    Sesh.SetSelection 14, 3, 20, 3
    Sesh.Copy
    Sesh.InputMode = 0               'Once this is set, do you need to set it again?

    XL.PasteSpecial
    XL.NumberFormat = "General"      'Bullet #1
    Set XL = XL.offset(1,0)

    '...and so on...

    XL.PasteSpecial
    XL.NumberFormat = "d-mmm"        'Bullet #3
    Set XL = XL.offset(1,0)

    XL.PasteSpecial
    XL.NumberFormat = "@"            'Bullet #5
    Set XL = XL.offset(1,0)

    XL.PasteSpecial
    XL.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)"      'Bullet #7
    Set XL = XL.offset(1,0)

    XL = "X"                          'Bullet #9

    'When you've reached the end of the row
    Set XL = XL.offset(1, 4 - XL.Column)  'Since col D = 4
    'And repeat your procedure

End Sub

VBA in Excel - 粘贴到活动单元格，然后按 Tab Right

VBA in Excel - Pasting to Active Cell then Tab Right

excel

vba

with-statement

pasting