Tag: 与声明

Delphi 7 with..do语句不能使用variablesvariables

我正在通过Delphi 7与Microsoft Excel。它工作正常，但格式化行和范围，我不得不写这样的长string。 XLApp.Workbooks[1].WorkSheets[NameDoc].Range['A19:L19'].Font.Bold := true; 所以我想摆脱艰苦的工作，并通过像这样的“… ..”声明来做到这一点 with XLApp.Workbooks[1].WorkSheets[NameDoc] do begin Range['A19:L19'].Font.Bold := true; end; 但在汇编阶段，我看到这个错误 Record, object or class type required 在string上 – “with..do”。 我用这种方法创buildExcel对象 XLApp: Variant; XLApp := CreateOleObject('Excel.Application'); 我认为，.. do语句doesen不适用于variablestypesvariables，但我想知道我是否正确？ 如果我是对的，有什么解决办法，使其工作？

Excel中的VBA – 粘贴到活动单元，然后右键单击

我需要Excel VBA的一些帮助。 我从Excel和另一个应用程序来回切换，从另一个应用程序粘贴到Excel中。 我已经有了这个过程，但是我需要关于如何粘贴到当前活动的任何单元格的build议，选项卡右侧，并在该行的末尾下行，然后从D列开始。 其实，这里是我需要在Excel应用程序中发生的确切过程的列表： [数字格式]粘贴到当前活动的单元格（将始终在D:D列中） 右键单击一个单元格 [date格式：“d-mmm”]今天的date 选项卡正确 [文本]粘贴 选项卡正确 [会计]粘贴 选项卡正确 在该列中键入字母“X” input一行，从D列开始。 在所有这些步骤之间，我已经发现了大部分代码与其他应用程序交互。 但是我也有一个关于这个问题的问题 – 在这个应用程序中，我运行这个语句： With ATC.ActiveSession （ATC简单地引用应用程序的types库来与其他应用程序进行交互） With每次应用程序来回复制和粘贴时结束With语句相反，我需要使用as语句来使用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 […]