Tag: runtime error

VBA运行时错误：91

我正在尝试使用Outlook发送电子邮件到column:A每个电子邮件地址column:A在Excel工作表中，并在主体中插入一个Word文档。 我写了下面的代码，但它给了我运行时错误91.我正在使用Office 2013。 Public Sub Create_Outlook_Email() Dim OutApp As Object, OutMail As Object, OutWordEditor As Object Dim WordDoc As Object Dim wordfile As String Dim rng As Range Dim row As Range Dim cell As Range 'Create new Outlook email Set rng = Range("a2:a50") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Set OutWordEditor = […]

运行时错误“1004” – 对于VLOOKUP

我试图build立一些双VlookUp的VBA代码，但我得到了运行时错误“1004”：应用程序定义或对象定义的错误。 这个目标是： 我从客户那里收到一个.csv文件，其中包括： Login Name eMail ， Card Number ， Host Login等。我将.csv文件加载到工作表“数据”中，然后运行一个查找程序将数据复制到工作表“用户”。 由于客户永远不会以相同的顺序构build.csv文件，因此我无法创build具有固定列号的vlookup以复制到工作表“用户”。 我正在使用的代码： Sub browseFileTest() Dim desPathName As Variant Dim DestCell As Range Dim iemail As Integer Dim PosEmail As Integer Dim icard As Integer Dim Poscard As Integer Dim ihost As Integer Dim Poshost As Integer Dim iemailD As Integer Dim PosEmailD As […]

访问子运行一次然后错误'91'：对象variables未设置

提前感谢您的帮助， 我有一个Access数据库，其中包含以下代码。 它被设置为打开一个定义的Excel文件，find最后一行，并添加1到下一行的行中的值，保存等…这是第一次，如果你再次运行它，我得到“错误'91'：对象variables或块variables未设置“。 但是，如果我按下VBA窗口中的停止button（重置）或错误消息的结束button，然后再次运行它的工作。 我尝试了很多东西，而且我很茫然。 有什么build议么？ Private Sub quoteNew1_Click() Dim app As New Excel.Application app.Visible = True Dim book As Excel.Workbook Set book = app.Workbooks.Add("C:\Desktop\Test_Quotes.xlsx") nextEmptyRow 'find last row and add new value to next row colum a book.Close savechanges:=True app.Quit Set app = Nothing End Sub Sub nextEmptyRow() Dim emptyRow As Long emptyRow = […]

将多个Excel文件导入到一个Access表时如何添加文件名

我正在使用Access VBA将多个Excel文件导入到我的Access数据库中。 这将是一个每月20-50个文件和10-60Klogging的过程。 我需要包含一个“应用程序名称”，它不包含在电子表格文件本身中，而是包含在它的文件名中。 而不是手动将应用程序名称添加到Excel文件，我想通过我的VBA代码添加它。 我不熟练使用Access，并通过关于如何完成的search将大部分内容拼凑在一起。 这个“工作”，但是当我在大批量运行时，我收到错误“运行时错误3035”：超出系统资源。 当我删除添加文件名（循环logging）的部分，它运行良好。我认为这是因为步骤没有有效地sorting？任何帮助，将不胜感激。 Public Function Import_System_Access_Reports() Dim strFolder As String Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim rstTable As DAO.Recordset Dim strFile As String Dim strTable As String Dim lngPos As Long Dim strExtension As String Dim lngFileType As Long Dim strSQL As String […]

运行时错误6 – 溢出，variables设置为长

我遇到问题执行过滤数据的复制粘贴。 如果过滤字段的结果为0或大于1，则我的代码不会遇到错误。但是，如果filter后有1个可见logging，则会显示运行时错误6。 请参阅下面的代码： Dim wsDue As Worksheet Dim wsTarget As Worksheet Dim y As Long Dim x As Long x = Range("A65536").End(xlUp).Row Range("A1").AutoFilter Field:=2, Criteria1:=Array("Yes"), Operator:=xlFilterValues Set wsDue = Worksheets("Due") Set wsTarget = Worksheets("Target List Consolidated") y = wsDue.Range("B" & wsDue.Rows.Count).End(xlUp).Row If wsDue.Range(wsDue.Cells(2, 2), wsDue.Cells(y, 2)).SpecialCells(xlCellTypeVisible).Count > 1 Then wsDue.Range("B2:B" & x).Copy wsTarget.Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, […]

运行时错误462使用Excel访问VBA

我尝试使用Access VBA打开/处理Excel文件时偶尔会出现运行时错误。 错误是 “运行时错误'462'：远程服务器计算机不存在或不可用 令人沮丧的是，这个错误只发生在某些文件上，而不是其他的文件中，而且在不同的情况下。 这里是我的代码，错误发生在workbooks.open(sPath)行： DoCmd.SetWarnings False Dim oExcel As New Excel.Application Dim oWB As Workbook Dim oWS As Worksheet Set oExcel = Excel.Application Set oWB = oExcel.Workbooks.Open(sPath) Set oWS = oWB.Sheets(1) oExcel.Visible = False If fGetFileName(sPath) = "FILE_NAME1.xlsx" Then 'oExcel.Visible = False oWS.Range("AW1").Value = "TEXT1" oWS.Range("AX1").Value = "TEXT2" oWS.Range("AY1").Value = "TEXT3" End If […]

Excel VBA工作表求和函数在其中一个值为文本时返回错误

我得到这个错误：“运行时错误'1004'”“无法获得工作表函数类的Sum属性 我有一个代码，看起来在用户窗体中的多个combobox，并总结他们的值，用户select。 该代码工作正常，只有在combobox列表中的数字。 我最近在列表中添加了一个文本选项，我称之为“不适用”。 但是，一旦我运行代码，我得到上述错误。 我相信这个错误是因为我引入了文本选项，而VBA中的sum函数不会识别它。 有没有解决这个问题？ 谢谢 这是我使用的代码： Dim totalscore As Double totalscore = WorksheetFunction.Sum(frmQA.ComboBox3.Value, frmQA.ComboBox4.Value, frmQA.ComboBox5.Value, frmQA.ComboBox6.Value, frmQA.ComboBox7.Value, frmQA.ComboBox8.Value, frmQA.ComboBox9.Value)

粘贴幻灯片时出错：指定的数据types不可用

在PowerPoint中粘贴幻灯片时，出现以下错误： PPApp.ActiveWindow.View.PasteSpecial ppPasteOLEObject, msoFalse 运行时错误-2147188160（80048240）：查看（未知成员）：请求无效。 指定的数据types是不可用的 我已经多次运行这个代码，之前运行正常。 另外，一旦对象/图表正在复制; 我正在切换到PowerPoint，看看我是否可以粘贴。 我可以粘贴所有的选项（如图片，作为embedded式图像等）。 这是完整的代码，直到我得到错误，因为它不是在评论部分 这是代码：直到我得到错误的行 Sub export_to_ppt() Set objExcel = CreateObject("Excel.Application") 'Keep the Importing master sheet address here: Set objWorkbook = objExcel.Workbooks.Open("d:\Documents and Settings \Export to ppt.xlsm") 'Keep all the worksheets which you want to import from here: Path = "D:\Office Documents\2013\ Latest Xcel\" Filename = Dir(Path & […]

运行时错误91：对象variables或未设置块variables

我有2个单独的文档与邮件合并列表。 我有一个Excel工作簿2张。 根据工作表名称，如果工作表不是空的，我需要发送邮件到相应的单词文档。 当我尝试执行此代码时，它运行到第一个文档，并在第二个文档，它停止Run-time Error 91 : Object variable or With block variable not set 我不确定是什么原因导致了这个错误（如果是Dimvariables或With块）。 如果有人能够帮助我纠正这个错误，将不胜感激。 Sub Generate_Certificate() Dim wd As Object Dim wdoc_reg As Object Dim wdoc_occ As Object Dim strWbName_reg As String Dim strWbName_occ As String Const wdFormLetters = 0, wdOpenFormatAuto = 0 Const wdFormLetters1 = 0, wdOpenFormatAuto1 = 0 Const wdSendToNewDocument […]

运行时间错误“438”

我有下面的行接收一个“对象不支持属性或方法的错误，但我没有看到任何问题。 Dim compliance As Worksheet Dim report As Worksheet Dim completeList As Worksheet Sub getcompliance() Dim i As Long Dim n As Long Dim Source As String Set compliance = ActiveWorkbook.Worksheets("Compliance") Set report = ActiveWorkbook.Worksheets("Report") For i = 3 To report.UsedRange.Rows.Count For n = 2 To compliance.UsedRange.Rows.Count report(i, 19) = Application.WorksheetFunction.VLookup(report("i, 3"), compliance("A1:AC2400"), 29, False) […]