首页 > 解决方案 > 使用 VBA 从另一个程序运行 Excel

问题描述

我在 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 还是很陌生。

标签: excelvba

解决方案


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

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)”指的是什么。我了解有关方向及其插入位置的部分,而不是它之前的内容。


推荐阅读