使用 VBA 从另一个程序运行 Excel

Question

我在 CAD 程序中使用 vba 来导出数据、对数据进行排序和添加数据。 下面的宏正是我想要 excel 做的。 但是我相信我仅限于让 CAD 程序通过 VBA 告诉 Excel 做什么。 此宏复制一个公式并将其粘贴到列中它下方的所有填充单元格中。

宏代码：

Range("B1").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste

代码的 iLogic 版本：

oBook.WorkSheets(1).Name = "Order List"
oBook.WorkSheets(2).Name = "Cut List"
wSheet1 = oBook.WorkSheets("Order List")
wSheet2 = oBook.WorkSheets("Cut List")

wSheet2.Activate
wSheet2.Range("B1").Select
wSheet2.Selection.Copy
wSheet2.Range(Selection, Selection.End(xlDown)).Select
wSheet2.Selection.Paste

不幸的是，我似乎缺少在 Inventor 和 Excel 之间进行翻译的内容，但我什至不知道这是否是问题所在。 非常感谢任何建议，因为我对 VBA 还是很陌生。

Answer 1

好的。 我有一些从论坛上复制的代码，但不了解正在运行的功能。 我相信这就是您所说的“应用程序”？

wSheet2.Columns("G:G").select()
oExcelApp.Selection.cut()
wSheet2.Columns("B:B").Select()
oExcelApp.Selection.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlToRight)

虽然我不明白“（Microsoft.Office.Interop.Excel.XlDirection.xlToRight）”指的是什么。 我了解有关方向及其插入位置的部分，而不是它之前的内容。

Answer 2

我同意@DisGruntledDraftsman 关于不使用 Select 和激活的观点。 但是，如果您只是想获得一些可以完成工作的工作代码，则可以进行一些简单的调整。 当然，这并不理想，但它应该可以工作。

row_Count = wSheet2.Range("B1048576").End(xlUp).Row
wSheet2.Activate
wSheet2.Range("B1").Select
Selection.AutoFill Destination:=wSheet2.Range("B1:B" & row_Count), Type:=xlFillDefault