我使用Excel打开现有的Word文档(基于在Excel工作表中输入的目录和文件名),然后从active Excel工作簿复制和粘贴表,让用户手动安排Word文档。
下面的代码可以正常工作,如果Word尚未打开,但如果Word已经打开,它将打开文档,但当它粘贴它时会出错(跳转到错误处理程序以找不到文档)。
如何从多个打开的Word文档中选择所需的Word文档,然后粘贴到其中?
Sub Einsueb()
Dim wdApp As Object
Dim wdDoc As Object
Dim ws As String
Dim EinsuebPath As String
' x - D
在Excel中,打开工作簿后,可以最小化Excel应用程序:
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
End Sub
在Word中,我尝试了这段代码,但没有成功:
Private Sub Document_Open()
Application.WindowState = wdWindowStateMinimize
End Sub
打开文档后,应该尽量减少Word Application。
我已经开发了一个相当复杂的Excel工作簿。现在我想把它记录下来。我发现了MS编译的HTML文件。因此,我在Word中编写了一个文档,其中包含有关工作簿中每个工作表的详细信息。我保存了它,并使用了MS帮助研讨会和我从网上下载的chmProcessor。最终,我让它正常工作并创建了.CHM文件。在我的工作簿中,我写了一个sub,看起来像这样:
Sub getHelp()
Dim currentPath As String
currentPath = ActiveWorkbook.Path
Application.Help (currentPath & "\
我正在使用来自C#的。(见2013年)。我正在使用在Office2010Professional Plus附带的Excel版本中创建的Excel工作簿。工作簿有一个.xlsx扩展。
当我在Excel中打开工作簿时,它有4个工作表是可见的,但是当我使用互操作打开它时,工作表集合包含了一些其他名称的工作表,如下所示:
Icons
International URLs
International Settings
DropdownSizer
International Translastions
Data Validation
International Data
然后,在该列表之后,在工
我有一堆包含多个工作表的Excel工作簿。我想遍历每个工作簿,并将每个工作表导出到它自己的新工作簿中。我希望每个新工作簿中都有一个工作表。
这是我到目前为止所得到的:
Sub ExportWorksheet(ByVal worksheet As Excel.Worksheet, ByVal filePath As String)
Dim xlApp As Excel.Application = New Excel.ApplicationClass
Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Add
我有一个Word文档,其中包含两个嵌入的Excel文件(使用Insert -> Object -> Create From File添加),我希望使用Word VBA对其进行修改。我已经能够打开嵌入的文件进行编辑(请参见下面的代码),但无法获得Excel工作簿的句柄,使用该工作簿可以进行修改并保存嵌入的文件。有人有解决这个问题的办法吗?提前谢谢。
Sub TestMacro()
Dim lNumShapes As Long
Dim lShapeCnt As Long
Dim xlApp As Object
Dim wrdActDoc As Docu
我有一些代码,其中wb是一个现有的多工作表工作簿。如果我复制了一个工作表“概述”,就会创建一个新的工作簿--那么为什么下面的错误是"object required“呢?
Dim wbCopy As Excel.Workbook
Set wbCopy = wb.Sheets("Overview").Copy
我打开了一个.xlsm工作簿和一个.docx文档。
代码是Excel。
我想在MsgBox中显示单词文件的名称。
如何在Excel中引用Word文档?
我在这里找到了代码
在我重写了它之后,它给了我一个错误:
activex组件无法创建对象429。
Sub Get_Opened_Doc_Instance()
'Variables declaration
'Dim WordApp As Object
Dim WordApp As Word.Application
'Dim WordDoc As Object
Dim Word
我使用下面的代码将数据从文本分隔文件转换为excel工作簿,但它将其存储在活动工作簿中,而不是新的工作簿工作表中。
我有3个文本文件,我需要所有这三个文本文件的数据到一个新的工作簿,在三个不同的工作表中。
到目前为止开发的宏代码片段如下-
Dim wkbTemp As Workbook
Dim sPath As String, sName As String
sPath = strFileToOpen
sName = "Test.txt"
Workbooks.OpenText Filename:=sPath, _
Origin:=xlMSDOS, StartRow:
我正在尝试创建一个excel工具,它可以从给定的文件名(工作簿)中提取数据。假设,在我的主工作簿(Sheet1-Cell A1)上,用户将输入文件名。然后点击‘ll按钮,它将复制特定文件名(工作簿)中的数据。
我已经创建了一个从另一个工作簿复制数据的文件,但是它指明了要将数据复制到的工作簿的特定路径和文件名。
Dim myData As Workbook
Set myData = Workbooks.Open("C:\Users\Desktop\Book2.xlsx")
Call Sample
Selection.Copy
我想要的是允许用户只输入文件名,然后excel将找到
考虑到我的UserForm嵌入了以下内容之一:
名为c:\myBook.xslm的Excel工作簿
Word文档c:\myDocument.docm,或
名为PowerPoint的c:\myPresentation.ppm演示文稿
要从外部脚本/主机应用程序/程序打开和显示UserForm,需要使用哪些自动化属性/方法?
例如,假设我在WSH下运行了以下JScript:
var app = new ActiveXObject('Excel.Application');
app.Visible = true;
var book = app.Workbooks.
我已经设置了打开word文档并关闭excel的代码,从word文档中可以重新打开excel,并将用户数据复制到新的表单中,然后从该表单中提取。整个过程工作得很好,问题是,一旦我完成了任务,就会试图关闭word文档。
当我返回excel时,我想关闭word文档,但是,当我试图引用文档时,我尝试的所有内容都会返回错误的文件名错误。我知道一个事实,即文件路径是正确的。我也知道,您不能以正常的方式引用开放文档。出于隐私原因,我已经替换了变量filePath。
以下是首先执行的word代码
Sub sendTableToExcel()
Dim xlApp As Excel.Applicati
我在运行一个word宏
初始化Excel
在excel中创建临时工作簿。
退出单词userform时,终止excel。
然而,似乎有一些剩余的Excel实例/工作簿没有完全关闭,因为当我再次启动单词宏时,我会得到错误: 462,远程服务器机器.
在word文档中初始化userform:
private sub commandbutton1_click()
dim exc as excel.application
set exc as new excel.application
dim wb as excel.workbook
set wb
我一直在努力想办法解决这个问题。因此,我在excel工作簿中有代码,可以从word文档中的图表打开和修改嵌入式Sourcedata工作簿。 我想要做的是关闭word文档中图表中的所有嵌入工作簿,但使用Application.Workbooks集合和“For Each workbook”循环。当我尝试使用此循环时,它将关闭所有工作簿,甚至包括那些在运行打开嵌入式工作簿的代码之前打开的工作簿。所以我编写了这样的代码来关闭嵌入的工作簿,但它花费的时间太长了: Dim K As InlineShape
Dim chrt1 As Word.Chart
Dim xWB As Workb
使用Excel中的VBA,我正在打开一个word模板文件。
我正在努力将文件保存为与active excel工作簿相同的文件夹中的.doc。我不想将它保存在与从它检索的文件夹中相同的文件夹中,也不想输入另一个绝对路径名。
我的当前代码一直将.doc保存到C:\USER\USER\Document而不是工作簿实际文件夹(C:\Users\USER\Desktop\testdocs)
我的代码如下:
Sub OpenTemplateSaveAsDoc()
Dim wApp As word.Application
Dim wDoc As word.Document
Set wApp = Create
我正在尝试从内存流中打开excel工作簿。我有一个excel文件的web url,我所做的是从url下载数据,然后将其保存到一个内存流中,但我不确定如何从流中打开工作簿,以下是我的代码到目前为止的工作方式。
WebClient wc = new WebClient();
byte[] fileArray = wc.DownloadData("url is inserted here");
MemoryStream ms = new MemoryStream(fileArray);
但是从这里开始,我不确定如何从流中读取数据来创建工作簿,来自的电子表格文档似乎不像我希望的那样
我没有使用VBA的经验,因为我通常使用Matlab或有时使用Python,但它似乎是我所拥有的项目中最有用的工具。基本上,从大量的Word文件中,我必须提取一个表并将它放入一个Excel文件中。在YT教程中,我已经有了以下基本代码:
Sub CopyTable()
Application.Templates.LoadBuildingBlocks
Dim xlApp As Excel.Application
Dim xlwb As Excel.Workbook
Dim doc As Document
Dim tbl As Table
Dim LastRow As Long, LastColum
我使用的是Microsoft Excel2016,我有一个名为"ProjectList.xlsx“的工作簿,它有一个单列的项目列表。我想要做的是,在另一个工作簿中,比如"Project Status Tracker.xlsx",我希望A列是一个下拉范围,但我希望该下拉列表中的值来自"ProjectList.xlsx“工作簿。这个是可能的吗?
谢谢你,肖恩