ExportasFixedformat在900次运行期间抛出错误1004一到五次
ExportAsFixedFormat是Excel VBA中的一个方法，用于将Excel文件以固定格式（如PDF或XPS）导出。错误1004通常是Excel VBA中的一个常见错误，表示“应用程序或对象定义错误”。在运行ExportAsFixedFormat方法时，可能会出现多种原因导致错误1004的发生。
以下是可能导致错误1004的几种常见情况和对应的解决方法：
- 文件或路径错误：请确保你指定的文件名和路径是正确的，并且你有足够的权限来访问该路径。还要检查文件是否已被其他程序锁定。
- 无效的工作表或范围：请确保你正在导出的工作表或范围存在且有效。可以使用Workbooks和Worksheets对象来引用工作簿和工作表，确保你使用正确的名称。
- 导出格式不支持：ExportAsFixedFormat方法只支持导出为PDF或XPS格式。请确保你指定的格式是这两种中的一种。
- 数据或格式错误：导出过程中，如果数据或格式存在问题，可能会导致错误1004的发生。例如，可能存在无效的公式、数据错误、超出范围的格式等。在导出前，最好确保你的数据和格式是正确的。
- 宏安全性设置限制：如果Excel的宏安全性设置较高，可能会导致无法执行某些宏操作，包括导出操作。你可以在Excel的选项中调整宏安全性设置，或者将你的文件保存到受信任的位置。
综上所述，当ExportAsFixedFormat在900次运行期间抛出错误1004一到五次时，可能的原因包括文件或路径错误、无效的工作表或范围、导出格式不支持、数据或格式错误，以及宏安全性设置限制等。你可以根据具体情况逐一排查这些可能的原因，并进行相应的解决。
相关·内容
Excel VBA宏 错误码： Worksheets("Rapport").Range("print").ExportAsFixedFormat Type:=xlTypePDF, Filename:=filename 抛出错误1004，但仅在6-7小时的900+循环运行期间抛出1到5次。 我点击调试，然后点击播放按钮，它运行没有错误，并按预期导出文件。我什么都不会改变。 我尝试在导出之前2秒内放入一个application.wait。也没帮上忙。
浏览 32提问于2021-05-07得票数 0
回答已采纳
5回答
我尝试了以下解决方案从Excel打印到PDF：
它产生
运行时错误1004
在wb.ExportAsFixedFormat上。
我的Excel: 2007版。
我更改了文件路径，以便将其保存到我的桌面上。
Sub Invoice_to_PFD()
'Saves the invoice print area to a PDF file
Dim fp As String
Dim wb As Workbook
fp = "C:\desktop\NewInvoice.pdf"
Set wb = ActiveW
浏览 8提问于2013-06-29得票数 1
回答已采纳
1回答
当运行这个宏时，我得到了一个'1004‘的错误。
Sub macro_PDF()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:="/Users/username/Desktop/tests/filename.pdf", _
OpenAfterPublish:=False
End Sub
错误图像
如果文件名为"PDF.pdf“，同样的代码也可以正常工作。似乎我只能导出名称为"PDF.pdf“的PDF。
下面的代码没有返回任何错误。为什
浏览 4提问于2018-11-13得票数 0
4回答
打印时出错
、、
我的宏如下所示。我正在尝试将我的excel表格保存为pdf文档。当我运行我的宏时，我得到一条“打印时出错”的消息，接着是:运行时错误'1004'：应用程序定义的错误或对象定义的错误
我正在运行Microsoft Excel for Mac版本15.13.1。
这是我的宏。怎么啦？
Sub SAVE_DIRECTORY_IN_PDF_FORMAT()
Dim DIRECTORY As Worksheet
Dim DIRECTORY2 As Worksheet
Sheets("DIRECTORY").Select
ActiveSheet.ExportAsFixed
浏览 1提问于2015-08-21得票数 2
我正在尝试将活动工作表打印为PDF文件。
我得到了
“运行时错误'1004'”
它似乎确实创建了文件，但无法保存它。我知道，因为打印加载窗口会打开一秒钟。
Dim saveLocation As String
saveLocation = "C:\Users\Desktop\work_hours.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation
浏览 3提问于2021-11-26得票数 1
我在VBA中安装了一个小宏，以便将表保存为Excel中的PDF格式。这是我写的代码：
Sub ExportPDF()
Dim File_name As String
File_name = "C:\Test\" & _
"Rapport du " & Date & "_Assurances.pdf"
Sheets("Assurances.Rapport").Select
Dim Last_row As String
Last_row = "
浏览 1提问于2019-10-21得票数 2
回答已采纳
2回答
我试图在MAC上制定VBA代码，以便将活动表打印成PDF格式。
我已经从这个和其他网站下载了例子。所有这些都产生了同样的结果：
运行时错误'1004'：应用程序定义的或对象定义的错误。
我有代码可以打印没有任何文件名或路径设置的活动工作表。
Sub PrintToPDF()
ActiveSheet.ExportAsFixedFormat Type:xlTypePDF, Filename:="XXX.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePr
浏览 4提问于2017-02-27得票数 0
1回答
我是Excel宏的新手。我试着做一个“另存为pdf”按钮。我写了一个这样的代码：
Sub save_as_pdf()
'
' save_as_pdf Macro
' Saves sheet as PDF
'
Dim Path As String
Dim filename As String
Path = "/Users/Adrian/Desktop/"
filename = ThisWorkbook.Sheets("Controller").Range("B20")
PathAndFilename = Path &
浏览 1提问于2018-03-05得票数 0
2回答
我的Excel在Mac上保存为PDF有时不工作。
它会给
“打印错误”
然后
运行时错误'1004'：应用程序定义的或对象定义的错误“。
我的代码昨天起作用了：
'a) For Windows
Dim wksSheet As Worksheet, PS As String
PS = Application.PathSeparator
If InStr(1, Application.OperatingSystem, "Windows") > 0 Then
Set wksSheet = ActiveSheet
wk
浏览 0提问于2018-09-24得票数 0
1回答
我正在尝试创建一个宏，它保存一个文件并以电子邮件的形式发送。问题是，当保存文件时，我会看到错误，上面写着：
运行时错误“1004”：文档未保存。文档可能是打开的，或者在保存时可能遇到错误。
在上下文中的守则是：
ChDir "C:/Users/username/Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:/Users/username/Desktop/test-save_" & Format(Date, "ddmmmyyyy") &a
浏览 2提问于2015-07-28得票数 0
回答已采纳
2回答
我正在尝试编写一个脚本，将单元格范围选择导出到PDF。我编写的代码如下：
Sub ExporttoPDF()
With Sheets("Results").Range("B10:J100")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\Export.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=
浏览 4提问于2016-11-18得票数 0
回答已采纳
我创建了一个宏，用于保存PDF到SharePoint库。它对我有效，但对终端用户不起作用。当他们运行宏时，会出现“错误1004.文档未保存”
我在SharePoint和其他东西中检查权限。我只有一次遇到这个错误，现在它一直对我有效。这是调试后显示的代码。
PrintRange.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Sheets("Settings").Range("B2") & Sheets("Settings").Range("B1") & "
浏览 2提问于2015-11-05得票数 1
1回答
如何在范围之间放置空格？
、、、
现在我有这样的代码，我尝试在单元格之间插入空格：
Sub Otdelniy_PDF_GIALLO()
Dim CellValue As String
Dim Path As String
Dim FinalFileName As String
MyString = Space(1)
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="R:\users402\AUDIT\AUDIT POLAND\AUDIT GIALLO\AUTO_INVOICES\" & Range("A2")
浏览 4提问于2021-11-29得票数 0
我只想解开包含报表的工作表，然后以pdf格式导出该工作表，然后再次隐藏它，然后返回到另一个工作表，但是当运行此代码时，我会收到一个"RunTime错误1004应用程序定义或对象定义错误“。
Sub Print_To_PDF()
Sheets("Report").Visible = True
Sheets("Report").Select
Dim pdfname As String
pdfname = Range("A1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePD
浏览 24提问于2022-09-20得票数 0
我试着把一页的版面打印成pdf。
我选择范围，但是当我试图设置打印区域时，我得到：
运行时错误'1004'：
无法设置PageSetup类的打印区域属性
Sub printpdftest()
Application.PrintCommunication = False
Application.Goto Reference:="'9. Requerimientos Custodia'!R6C1"
Dim myPath As String, myFile As String
myPath = ThisWorkboo
浏览 5提问于2022-01-27得票数 0
1回答
我正在努力将我的工作表导出为PDF格式。
这是我的代码，我使用Office 2016作为MAC
Sub saveactiveworkbook()
Dim FileName As String
Dim FolderName As String
Dim Folderstring As String
Dim FilePathName As String
ActiveSheet.PageSetup.Orientation = xlLandscape
FolderName = "TestVBA"
FileName = "DV" & ".pdf&
浏览 0提问于2018-02-28得票数 1
我使用“ExportAsFixedFormat”将其保存为PDF格式，但当我尝试使用“SaveAs”获得CSV时(尽管我也会接受xlsx！)我得到：
运行时错误: 1004应用程序定义或对象定义错误
我花了很长时间试图这么做，但在网上找不到任何对我有用的答案.
Sub SaveTrackingSheet()
Dim NewPathTrack As String
NewPathTrack = Application.ThisWorkbook.Path & "\PDF Outputs\" & Range("NameTrack"
浏览 2提问于2018-01-12得票数 0
我正在尝试编写一个简单的宏(我认为是这样)，它将将Excel电子表格中的工作表(而不是整个工作簿)保存为PDF格式。我在运行Yosemite的MacBook Pro上使用Excel2016 (15.24)。我在这里和网上都看到过很多例子。
首先，我录制了一个宏并编辑了它。看起来是这样的：
Sub SavePDF()
ActiveWorkbook.SaveAs Filename:= _
"pdfs/excelsheetstopdf.pdf", FileFormat:=xlPDF, _
PublishOption:=xlSheet
End Sub
这产生了一个PDF
浏览 0提问于2017-05-12得票数 0
我正在尝试将一个工作表导出为PDF，但当我运行代码时，我一直收到1004错误。 我相信它链接到保存目标的文件夹路径。我尝试过以不同的方式定义文件路径，但仍然出现错误。 此代码应从单元格B1中提取文件名的一部分，并从工作表所在位置提取文件路径。PDF应保存到工作表的位置。我是VBA的新手。如有任何帮助，我们不胜感激！ 以下是代码 Sub ExportAsPDFTest()
Dim Name As String
Dim Preface As String
Name = Cells(1, "B").Value
Preface = "PreR Summer 2019 -
浏览 26提问于2019-06-07得票数 0
回答已采纳
我正在尝试使用python和.pptx将一个.pdf文件转换为.pdf。我使用的代码如下所示：
ppoint = win32.gencache.EnsureDispatch("Powerpoint.Application")
ppoint.Visible = True
pres = ppoint.Presentations.Open(PPT_FILE_NAME)
pres.ExportAsFixedFormat(PDF_FILE_NAME, 2, 0, 0, 1, 1, False, 1, False, False, False,False)
问题是ExportAsFixedF
浏览 0提问于2013-07-27得票数 2
回答已采纳
我在这个网站上发现了几个类似的问题，但没有一个解决方案对我有效。
我的目标是允许用户单击电子表格中的一个按钮，然后a)将整个工作簿保存在本地，或者b)仅将书的一部分导出为PDF。
“另存为”代码工作正常，导出到pdf代码工作过一次，然后停止工作。代码如下：
Option Explicit
Sub Button1_Click()
Dim workbook_file_name As String
Dim datasheet As String
Dim saveworkbook As Double
Dim PDFdata As Object
saveworkbook = MsgBox("
浏览 0提问于2017-10-10得票数 0
1回答
当我保存PDF文件时，我遇到了一个错误1004“应用程序定义的或对象定义的错误”。如果取消“另存为”，则VBA将正确运行。
你说她是谁？Fejlen opst r n r den skal gemme pdf p den lokation jeg har valgt
Sub Gem_beregner_ny()
Sheets("Udskrift").Visible = True
Sheets("Udskrift").Select
Dim strFileName As String
Dim strPath A
浏览 2提问于2022-11-17得票数 0
昨天我试着为朋友把一组PPTs转换成PDF，我决定看一看PowerShell，因为它在我的硬盘上已经有一段时间了。
这是我想出的密码。
$p = new-object -comobject powerpoint.application
# I actually don't know why I have to set the window to visible,
# but it doesn't work otherwise, anyway, it's not the real problem I have
$p.visible = 1
$f = $p.pres
浏览 4提问于2009-05-21得票数 1
下面是我正在使用的代码，但它在range.value行抛出了一个1004错误。但是，它成功地复制了没有公式(仅值)的工作表。只是运行这段代码会抛出错误1004。
Sub test1()
Dim wbNew As Workbook
Dim wks As Worksheet
Set wbNew = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets.Copy After:=wbNew.Worksheets(1)
Application.DisplayAlerts = False
wb
浏览 5提问于2017-03-15得票数 3
我正在尝试写一些代码，将几个选项卡保存为一个pdf文件在文件夹中指定的文件在excell。我希望文档中的单元格指定此文件的保存位置。我不确定这是否可能，但如果有任何帮助将是好的！在保存代码的过程中，我当前收到一个运行时错误'1004‘。
是的，我确实创建了被引用的文件夹。
Sub asdf()
Dim Fname As String
Dim Fpath As String
Dim YrMth As String
Fname = Sheets("Sheet1").Range("A1").Text
YrMth = Sheets("Sheet1&
浏览 0提问于2013-06-18得票数 0
回答已采纳
1回答
我想从excel vba导出docx文件到pdf文件。正确打开文档file.docx。但是，在调用方法ExportAsFixedFormat：运行时错误'5'：无效的过程调用或参数时发生了错误。我认为争论是可以的。
下一个小错误：ActiveDocument.Path不工作。有一个错误“运行时错误'424'：Object必需”，因此我使用了WordApp.Documents(myFileName).ExportAsFixedFormat而不是ActiveDocument.ExportAsFixedFormat。
此代码是从文件Macro.xlsm执行的。我使用M
浏览 14提问于2022-02-06得票数 1
回答已采纳
我有以下问题，在我的VBA代码中，当我想将范围保存为PDF时，运行时错误5无效的过程调用或参数。代码如下所示：
Worksheets(2).Range("A1:G103").ExportAsFixedFormat Type:=xlTypePDF, Filename:=path1_1 & "\Idea" & Worksheets(3).Range("B12").Value & ".pdf", OpenAfterPublish:=False
正在访问的工作表是隐藏的。如果是Worksheets(2).Visib
浏览 11提问于2022-11-03得票数 1
回答已采纳
我正在尝试调试一些包含ExportAsFixedFormat的代码，它会导致“被调用的对象已从其客户机断开连接的自动化错误”。错误消息。我在2013年运行，所以不需要PDF/XPS插件，并且该函数可以在工作簿的其他地方运行。这似乎与我正在尝试制作PDF的页面有关。虽然主宏更长，但当我使用这段简单的代码时，我遇到了同样的错误：
Sub NewAssetScreen()
Sheets("New Asset").Select
Sheets("New Asset").Activate
ActiveSheet.ExportAsFixedForm
浏览 0提问于2014-09-24得票数 0
1回答
我在excel中找到了一个用于选择下一个空行的片段，但是当我运行这个宏时，它会告诉我它抛出了一个运行时错误1004。知道为什么吗？
Sub CopyValues()
Sheets("Report").Select
Range("B4:D10").Select
Selection.Copy
Sheets("Data").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
是的，工作表的名字是正确的。Range("A1&#
浏览 7提问于2014-04-16得票数 1
回答已采纳
我已经成功地运行了一个宏，它将我的Excel工作表保存为PDF并向我的管理团队发送电子邮件。
我重新设计了它，创建了一个新的工作表，并相应地更新了代码。
Sub NewDashboardPDF()
' New Executive Daily Dashboard Macro
'
' Create and email the Executive TEAM the Daily Dashboard.
Dim strPath As String, strFName As String
Dim OutApp As Object, OutMail As Object
浏览 2提问于2016-09-19得票数 6
strFile = Application.GetOpenFilename 'Workbooks.Open strFile
With ActiveSheet.QueryTables.Add( _
Connection:="strFile", _
Destination:=Range("$A$1"))
‘我尝试过: with ActiveSheet.QueryTables.Add( _ Connection:="TEXT;strFile"，_ Destination:=Range("$A$1"))
这会抛出一
浏览 0提问于2014-07-25得票数 0
回答已采纳
我正在运行一个批处理文件，该文件执行VBScript，该文件在彭博终端的Excel表中运行宏。
excel表格在单元格中包含了许多BDP公式。这些都很好用。最初，我在更新彭博社的数据和运行宏时遇到了问题，但这是通过使用bloombergui.xla.RefreshAllStaticData +一个计时器来解决的。
宏在excel中手动执行时运行得很好，但是我得到了一个“运行时错误1004找不到bloombergui.xla.”当试图通过批处理和VBS实现自动化时。
有什么办法解决这个问题吗？我想我已经通过谷歌用尽了所有的选择。
宏：
Sub UpdateWeekly()
Applicatio
浏览 0提问于2018-03-06得票数 0
回答已采纳
7回答
我在Android的媒体后端(主要是Stagefrightplayer)遇到了一些麻烦，我想知道为什么它会抛出错误。错误通常是特定于设备的，因此在仿真器上进行调试是不够的。
示例：
I/AwesomePlayer( 147): mConnectingDataSource->connect() returned -1004
V/MediaPlayerService( 147): [332] notify (0x272830, 100, 1, -1004)
E/MediaPlayer(24881): error (1, -1004)
E/MediaPlayer(24881): Error
浏览 1提问于2010-09-10得票数 5
回答已采纳
我在一个模块中有这一行，当我尝试运行它时，它一直抛出一个运行时错误1004。
有人能帮上忙吗？
我猜这与引用范围的方式有关，但我不确定。这对我来说是全新的。
rngFirst = ThisWorkbook.Worksheets("Still In Progress").Range("G" & 1 & ":G" & lw)
非常感谢你提前
浏览 0提问于2013-08-13得票数 0
回答已采纳
1回答
我正在使用MS Excel 2016。在VBA代码下面抛出一个错误
运行时错误1004应用程序定义或Obj定义错误
我想数一下AT栏中的空格数，如果有空格，我想用"Nill“替换它。这张纸上有29000行。
Sub FillBlanks()
Dim cnt As Long
cnt=Range("AT:AT").Cells.SpecialCells(xlCellTypeBlanks).Count
On Error Resume Next
MsgBox cnt
End Sub
浏览 6提问于2020-02-26得票数 0
回答已采纳
2回答
我是VBA的新手，遇到了一个我无法解决的运行时错误。我有以下代码
Dim vRange As Range
Sheets("Vert E").Cells.FormatConditions.Delete
With Sheets("Vert E")
Set vRange = .Range(.Cells(2, 2))
End With
vRange.Select
最后一行，vRange.Select抛出一个运行时错误'1004'：应用程序定义的错误或对象定义的错误。有什么想法吗？
浏览 0提问于2013-08-12得票数 1
1回答
我们正在尝试使用将PPT文件转换为PDF。我们使用ExportAsFixedFormat()进行转换，如下面的代码片段所示：
public static void ConvertPowerPointToPdf(string inputFile)
{
string outputFileName = @"C:\All format files\PPT2PDF.pdf";
Microsoft.Office.Interop.PowerPoint.Application powerPointApp =
浏览 3提问于2017-02-01得票数 0
1回答
我已经建立了一些VBA脚本，将我的Excel报价文档转换为PDF，随后通过电子邮件将其发送到给定的电子邮件地址。 目前，脚本正在运行，并能够生成PDF文档，并将其保存到我提供的文件位置，但其中的第二部分，即创建一封电子邮件并准备发送似乎不起作用。 我需要这个，以便我可以报价的客户，但也存储在文件中的报价副本。我可以只附加从文件中给定的PDF，但由于它将不仅由我自己使用，我想删除这一步。 我已经尝试了下面的代码，PDF生成在这段代码中和单独的情况下都工作得很好。出现的错误是运行时1004，它将这部分代码定位为持有错误： Worksheets("Email").Range(
浏览 13提问于2019-04-12得票数 0
回答已采纳
下面的代码在第一次出现错误时运行良好，但在第二次抛出错误时抛出错误。我在cn.execute(Sql)遇到错误，所以每当遇到错误并继续循环时，我想跳到下一步
'EXECUTION OF SQL QUERY
Application.EnableEvents = False
Application.ScreenUpdating = False
'Application.ErrorCheckingOptions.BackgroundChecking = False
Set Sql = ws.Range("D" & m)
On Error GoT
浏览 0提问于2018-05-22得票数 0
1回答
我有下面的代码，我已经研究和工作在我的工作簿之一。代码的思想是自动将工作表打印成PDF格式，并保存在我选择的目录中，将其命名为特定单元格的内容。
所有操作都很好，直到我尝试复制到新的工作簿(我在测试工作簿中设计为不损坏原始工作簿)，然后我得到一个
运行时错误1004
当我调试时，ThisWorkbook.Sheets(Array("sheet 2")).Select会被突出显示。我错过了一些简单的东西吗？如果我将代码粘贴到新工作簿中的一个新模块中，则代码在原始工作簿中工作，而不是在其中。对不起，我对这件事很陌生！
sub PrintPDFRT()
Sheets(
浏览 1提问于2017-11-15得票数 1
我有一个代码导出到pdf到一个特殊的文件夹在Sharepoint上。这段代码一直工作正常，直到令人不满。我也搞不懂为什么。在代码中，我有两个用于路径的字符串，它们是我组合的。如果我剪掉这条路的一部分就行了。
这让我觉得这条路有问题。我检查了很多次，路径是正确的，不能看到它已经改变了。我得到了
运行时错误1004:对象定义错误的应用程序定义
如果我将Filename:=newpath3更改为Filename:=newpath1，它将导出pdf。那么newpath2有什么问题吗？我用msgbox检查了一下，在总路径上找不到任何错误。
Private Sub CommandButton1_C
浏览 1提问于2019-05-07得票数 0
我尝试通过COM自动化将Excel文件转换为PDF。代码使用系统用户作为服务运行。不幸的是，我在ExportAsFixedFormat()函数中得到错误"0x800A03EC“。当我在交互式会话中运行它时，它会起作用。
我听说systemprofile需要一个桌面文件夹，所以我添加了这些文件夹。
我听说这也可能与系统用户没有默认打印机有关，因此我将值添加到以下键：
HKEY_USERS\S-1-5-18\Software\Microsoft\Windows NT\CurrentVersion\Devices
HKEY_USERS\S-1-5-18\Software\Microsoft\
浏览 6提问于2010-12-10得票数 1
回答已采纳
当用户单击“打印按钮”时，活页应该以PDF格式打印。
我对.ExportAsFixedFormat方法有问题。我收到以下错误消息：
运行时错误'-2147018887 (80071779)'：自动化错误，只读取文件
这是代码：
Sub PrintButtonClick()
'++++Print to PDF Function++++
'For more Information: https://learn.microsoft.com/de-de/office/vba/api/excel.worksheet.exportasfixedformat
'
浏览 1提问于2019-03-27得票数 1
回答已采纳
2回答
我在寻找解决办法：
我有一本书，里面有多张纸，里面有多张枢轴表.我只想更改一个特定的枢轴表的过滤器。
如果我使用ActiveSheet-方法，这似乎有效，但在启动此代码时，此工作表不处于活动状态，因此我尝试通过嵌入它来更改此筛选器：
Sub Jahresübergang2()
Dim Jahresuebergang2 As Worksheet
Set Jahresuebergang2 = Worksheets(11)
Jahresuebergang2.PivotTables("Name of Pivot Table").PivotFields("[Incid
浏览 2提问于2017-10-24得票数 0
回答已采纳
嗨，我真的需要一些帮助。我正在尝试将MS Excel中的活动工作表导出为PDF格式，并将其保存到驱动器中，同时通过outlook将其通过电子邮件发送给几个公司的不同联系人。它似乎适用于所有没有Windows 10的人。我是唯一一个安装了Windows 10的人。ActiveSheet是我遇到错误的地方。下面是我使用的代码，但我一直收到错误消息1004
Name = Specific location
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
Quality:=xlQualityStand
浏览 0提问于2018-07-12得票数 0
当我将数据从Sheet1复制到Sheet2时
“运行时错误'1004'：应用程序定义或对象定义错误”
我使用以下vba代码：
Sheets("Sheet1").Range("D2:E14").Copy Destination:=Sheets("Sheet2").Cells(10, 2)
我没发现有什么不对劲的地方。为什么vba在此抛出错误？
浏览 2提问于2020-01-20得票数 0
回答已采纳
我有一个excel工作簿与多个工作表，每个客户1。在我的代码中，我试图将每个单独的客户工作表保存为自己的excel文件。但是，.SaveAs命令在循环中第二次触发时中断。任何指点都会很棒。
Dim SchedWorksheet As Worksheet
Dim SchedWorkbook As Workbook
Dim SchedName As String
Set SchedWorkbook = ActiveWorkbook
Set SchedWorksheet = ActiveSheet
Application.DisplayAlerts = False
For Each Worksh
浏览 0提问于2017-05-10得票数 0
回答已采纳
我录制了一个用于排序的宏。我想替换硬编码的行数，这样这个宏就可以在任何地方使用 .SetRange ActiveCell.Offset(-1, 0).Range("A1", Range("A1").End(xlDown).End(xlToRight)) 这部分代码抛出VBA运行时错误1004“应用程序定义或对象定义的错误”
浏览 23提问于2020-12-24得票数 0
2回答
在宏中的公式中使用输入变量
、、、、
我希望在公式中使用用户输入，如下所示：
Sub example()
Dim StockDays As Integer
StockDays = InputBox(Prompt:="How many days?")
Range("AG2").FormulaR1C1 = "=ROUNDUP(RC[-6]*" & StockDays & "/90, 0)"
Range("AG2").Select
Selection.AutoFill Destination:=Range(Cells(2, 33), Ce
浏览 2提问于2012-12-26得票数 0
回答已采纳
以下摘自的Excel 2013书的代码没有运行，而是抛出了一个运行时错误1004 --有什么想法吗？
Option Explicit
Sub main()
Dim subToCall As String
Select Case VBA.weekDay(Now)
Case 1, 7
subToCall = "weekEnd"
Case Else
subToCall = "daily"
End Select
Application
浏览 2提问于2022-01-31得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
