我将PDF嵌入到Excel文件中,然后使用VBA打开它,如下所示:
Dim objMan As OLEObject
Set objMan = ThisWorkbook.Worksheets("Public").OLEObjects.Item("Doc")
objMan.Activate
我遇到的问题是,它在后台打开它,然后需要从任务栏手动打开它来查看它。在寻找OLEObject设置焦点的方法时,我遇到了用于OLEObjects的谓词方法。
声明此方法向OLEObject发送命令,可用命令“由对象的源应用程序确定”。
我的问题是:如何确定Acrobat文档中有哪些
我已经通过VBA访问打开了一个Excel文件,并且可以在Excel单元格中读写。如何勾选Excel Ckeck Box?
我的代码:
Dim Excel_App As Object
Dim strExcel As String
Set Excel_App = CreateObject("Excel.Application")
Excel_App.Visible = True
Excel_App.Workbooks.Open fready
With Excel_App
.CheckBox3.Value = True 'This line is used in V
最近,我设法在VBA中实现自动化,在VBA中打开与excel文件相同文件夹中的外部word文件,并从excel中添加新内容,然后将其保存为word文件不同的名称。守则如下:
Dim wordapp As Word.Application
Dim wordfile As Word.Document
Set wordapp = New Word.Application
Set wordfile = wordapp.Documents.Open(Application.ActiveWorkbook.Path & "<word file name>")
worda
我在Excel中嵌入了一个powerpoint演示文稿,正在使用宏打开该演示文稿,然后我想将打开的演示文稿保存到C盘 我尝试了以下代码,但无法将powerpoint保存到所需的目标位置。 Sub openppt()
Dim ppPres As PowerPoint.Presentation
Set ppApp = New PowerPoint.Application
Todate = Date
Sheets("SupportData").Select
ActiveSheet.Shapes.Range(Array("Object 7")).Select
Se
我在谷歌上搜索过这个问题,还没有想出一个解决方案。如果将文件保存为.xls,而不保存.xlsm,则此代码可以工作。我正在使用Office 2013 (32位)。
我已经编写了一个COM公开的C#类库。excel工作簿实例化对象并传递对当前工作簿的引用。然后,该对象调用excel对象并更新第一个工作表上Label1 1的标题。
我已经打开了所有的信任中心设置(它适用于.xls文件),而且.xlsm文件在任何情况下都没有受到保护。
我尝试过几种更新标题的不同方法,我已经确定我使用的是OLEObjects,但是它仍然抛出一个Unable to get the Object property of t
:一个文件,在该文件中,在列中(实际上是自由格式化的,但在列中对齐),一些元素是嵌入的bmp图片,当您单击它们时显示公式=EMBED("Paint.Picture","")。当您查看Excel工作表时,只会显示表示图片的图标,而不会显示图片本身。
:将嵌入的图片(而不是图标)复制到一个新的Word文档中。
--我到目前为止拥有的代码--
'Image Objects
Dim myObjs As Shapes
Dim myObj As Shape
Set myObjs = ActiveSheet.Shapes
'Traversing object
我有一个Excel电子表格,其中包含数十个嵌入的Excel对象。我的目标是将每个Ole对象保存为它自己的电子表格文件。 我在一个工作表中找到所有的OLEObjects并激活每一个: For Each oleObject In sheet.OLEObjects
oleObject.Activate 激活会导致创建一个新的工作簿。如何获得此新创建的工作簿的句柄,以便在创建下一个工作簿之前保存并关闭它?Activate方法返回一个变量,但我需要一个Workbook。 有没有其他方法来实现我的目标? 谢谢,埃迪
我们将pptx文件嵌入到Excel中,然后使用Excel代码(如下所示)打开,然后将pptx文件保存到用户的驱动器中,然后根据Excel计算以编程方式修改pptx内容。
下面的Excel代码可以很好地控制PowerPoint 2010和2013年,但不再适用于2016年的PowerPoint。
注意:我对Word有类似的代码,对于Word 2016 (和以前的版本)来说,它工作得很好。
Sub OpenCopyOfEmbeddedPPTFile() 'works with Office 2010 and 2013, but not on Office 2016
Dim oOle
假设在WinForms应用程序中设置了以下内容:
Dim ExcelApp As Microsoft.Office.Interop.Excel.Application
Dim ExcelWorkbook As Microsoft.Office.Interop.Excel.Workbook
Dim wksDataVals As Microsoft.Office.Interop.Excel.Worksheet
ExcelApp.Visible = False
基本上,我在后台运行了一个不可见的Excel实例,其中打开了一个名为ExcelWorkbook的工作簿,还有一个应用程序正在操作的名为wk
在我的VBA项目中,我使用下面的方法来应用组更改,以清除对象名称开头为"item“的Activx控件框。它工作得很好。
Dim ws As Excel.Worksheet
Const Connamepfix As String = "item"
Dim obj As OLEObject
Set ws = ThisWorkbook.Sheets(7)
With ws
For Each obj In .OLEObjects
If Left(obj.Name, 4) = Connamepfix Then
obj.Object.C
我正在从Outlook导入数据。打开Excel的代码将打开未加载personal.xlsb的实例,并将打开多个Excel实例。如果我运行两次,它将打开两个实例,但会覆盖第一个实例中的数据,留下第二个实例的空白工作簿。如果Excel已关闭,而Outlook未关闭,则代码运行时将给出错误,因为即使只有一个实例正在运行,它也不会将数据放入新的“第二个”实例中。
Sub Extract()
On Error GoTo 0
Set myOlApp = Outlook.Application
Set mynamespace = myOlApp.GetNamespace("m
我希望在Excel中有一个ActiveX标签,其中的值在更新时与范围内的值(“F4”)相对应。它不是在表单中(标签上的很多信息都在表单上),而只是在一个普通的工作表上。我怎样才能做到这一点?
我一直在使用它将标签分配给宏,但它不起作用:
Sub CurrentPoints()
Worksheets("Sheet1").Label1.Value = Range("F4").Value
End Sub
必要的计算已经完成,并在单元格F4中正确显示。
谢谢!
我正在尝试在Excel中创建一个自定义类,以便为一个GotFocus (工作表上的ActiveX控件)处理事件OLEObject和LostFocus。
自定义类clsSheetControl
Dim WithEvents objOLEControl as OLEObject
Public Sub Init(oleControl as OLEObject)
Set objOLEControl = oleControl
End Sub
端自定义类
调用工作表
Public Sub SetControlHandler()
set clsControl = new ClsSheet
我的代码循环遍历Excel工作簿中当前工作表中的所有现有OLEObjects。我希望它找到一个特定的变量(基于传递给子的名称),即总是a CheckBox,并将其赋值给类型为CheckBox的变量。
注意:其他对象并不都是复选框,因此是泛型OLEObject类型。
调用sub的示例代码,显示名称示例:
HandleCheckBoxClick("chkAddSummary")
寻找这个特定对象的子:
Sub HandleCheckBoxClick(nm As String)
Dim o As OLEObject
Dim cb As CheckBox
F
我有一个嵌入了Word文件作为对象的Excel电子表格。当我将对象作为模板打开并将其保存到文档文件中时,Word标题中的名称不会更改,而Excel中的对象会受到影响。如下所示:
For Each OLE In ActiveSheet.OLEObjects
If InStr(1, OLE.progID, "Word.Document", vbTextCompare) > 0 Then
OLE.Verb xlVerbPrimary
Set WordDoc = OLE.Object
WordDoc.SaveAs2 "c:
我有一个小宏,它打开一个表单,你可以输入详细信息,当你点击一个按钮,你创建一个列表与所有的条目,并保存一个选定的pdf文件嵌入在另一个工作表。当您不将代码作为符号嵌入时,代码就会工作。它基本上创建了一个“截图”与pdf。但是我只想将嵌入的对象保存在一个固定的路径中
Sub Schaltfläche6_Klicken()
Dim saveLocation As String
Dim sFolderPath As String
UserForm1.Show
sFolderPath = "C:\test\Excel"
saveLocation = "C:\test\Exc