Sub ForwardToExcel() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim iLastRow As Integer Dim iRow As Integer Dim sSearch As String Dim sTo As String Dim objMail As Outlook.MailItem '获取当前邮件 Set objMail = Application.ActiveInspector.CurrentItem '打开Excel文件 Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\MyExcel.xlsx") Set xlSheet = xlBook.Worksheets("Sheet1") '获取Excel表格最后一行 iLastRow = xlSheet.Cells(xlSheet.Rows.Count, "A").End(xlUp).Row '查找邮件内容在Excel中的行数 sSearch = objMail.Body For iRow = 1 To iLastRow If xlSheet.Cells(iRow, "A").Value = sSearch Then sTo = xlSheet.Cells(iRow, "B").Value Exit For End If Next iRow '将邮件转发到对应邮箱 If sTo <> "" Then Set objForward = objMail.Forward objForward.To = sTo objForward.Send End If '关闭Excel文件 xlBook.Close SaveChanges:=True xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing Set objMail = Nothing End Sub 这个代码报错:运行时错误‘91’:对象变量或with块变量未设置,如何解决

时间: 2023-03-30 10:04:45 浏览: 195
ZIP

vba-excel.zip_Excel VBA_VBa_excel_excel application _vba excel

这个问题可能是由于没有正确设置对象变量或with块变量引起的。您可以检查代码中是否有未设置的变量或对象,或者尝试使用“Set”语句为变量或对象分配值。您还可以尝试使用“On Error Resume Next”语句来避免出现运行时错误。
阅读全文

相关推荐

#-*- coding:utf-8 -*- import os #from win32com.client import Dispatch, constants, gencache, DispatchEx import win32api import win32com.client def pdf_xls(root,filename,name): if(filename.find('.xlsx')>=0): pdfname = root+os.sep+filename.replace(".xlsx", ".pdf") else: pdfname = root+os.sep+filename.replace(".xls", ".pdf") xlApp=win32com.client.Dispatch('Excel.Application') xlApp.Visible = 0 xlApp.DisplayAlerts = 0 books = xlApp.Workbooks.Open(name,False) for sh in books.Sheets: sh.PageSetup.Orientation = 1 sh.PageSetup.Zoom = False sh.PageSetup.FitToPagesWide= 1 books.ExportAsFixedFormat(0, pdfname) books.Close() print('保存 PDF 文件:', pdfname) xlApp.Quit() def pdf_doc(root,filename,name): if(name.find('.docx')>=0): pdfname =root+os.sep+filename.replace(".docx", ".pdf") else: pdfname = root+os.sep+filename.replace(".doc", ".pdf") print(pdfname) #print(pdfwj) exec_tool = 'kwps.application' word = win32com.client.DispatchEx(exec_tool) word.Visible = 0 word.DisplayAlerts = 0 password='666666' doc = word.Documents.Open(name,True,False,False,password,password,Visible=False) doc.SaveAs(pdfname,FileFormat=17) #doc.ExportAsFixedFormat(0,pdfname) doc.Close() word.Quit() if __name__ == "__main__": path=input('输入文档路径') for root, directories, files in os.walk(path): n=0 for fileList in files: name=root+ os.sep+fileList #文件名 if (name.find('.doc')>=0): print(name+"开始执行") try: pdf_doc(root,fileList,name) print(name+"已完成执行") except Exception as re: f=open("error_data.txt","a",encoding='UTF-8') f.write(str(name)+str(re)+"\n") f.close() if name.find('.xls')>=0: print(name+"开始执行") try: pdf_xls(root,fileList,name) #root 目录 fileList 文档名称 name 文件加文档名 except Exception as re: f=open("error_data.txt","a",encoding='UTF-8') f.write(name+str(re)+"\n") f.close()这个程序怎么用

帮我优化以下代码,将导出数据以每次导出不同的10000条至一份新的EXECL表,直至数据记录导完Dim strSQL As String Dim strFileName As String Dim i As Long Dim batchSize As Long '每批次导出的记录数 Dim batchCount As Long '批次计数器 Dim exportCount As Long '导出计数器 '设置导出文件路径和文件名 strFileName = "C:\Users\icd\Desktop\流水分割" batchSize = 10000 '每批次导出的记录数 DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "SELECT 导出数据.* INTO ExportData FROM 导出数据" '将表导入临时表ExportData DoCmd.SetWarnings True '重新开启Access的警告信息 Set rs = CurrentDb.OpenRecordset("SELECT * FROM ExportData", dbOpenSnapshot) '打开临时表ExportData '循环导出数据 Do While Not rs.EOF If exportCount Mod batchSize = 0 Then '每批次导出到一个新的文件 If exportCount <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If batchCount = batchCount + 1 End If exportCount = exportCount + 1 rs.MoveNext Loop '导出最后一份文件 If exportCount Mod batchSize <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If rs.Close Set rs = Nothing DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "DROP TABLE ExportData" '删除临时表ExportData DoCmd.SetWarnings True '重新开启Access的警告信息

最新推荐

recommend-type

Python读取excel文件中带公式的值的实现

xlBook = xlApp.Workbooks.Open(filename) xlBook.Save() xlBook.Close() # 使用win32com打开并保存Excel文件 just_open(data_file) # 再次使用openpyxl读取 value = get_openpyxl(row, col, data_file) ``` ...
recommend-type

vb.net借助剪贴板将图片导入excel内

Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add() ``` `xlApp.Workbooks.Add()`方法会创建一个新的Excel工作簿并返回其引用。 5. **选择工作表**: 在工作簿中,我们可以选择或创建一个工作表。例如,...
recommend-type

详解C#读写Excel的几种方法

Excel.Workbook xlsWorkBook = xlApp.Workbooks.Open(importExcelPath, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, ...
recommend-type

Python使用win32 COM实现Excel的写入与保存功能示例

2. **初始化Excel应用**:`Dispatch('Excel.Application')`创建一个新的Excel应用程序实例,并设置`Visible=True`使其可见。这允许用户看到Excel窗口在执行过程中。 3. **创建工作簿**:`xlApp.Workbooks.Add()`...
recommend-type

vb将Excel导入到DataGrid(或数据库

Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet Set xlApp = New Excel.Application Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp....
recommend-type

高清艺术文字图标资源,PNG和ICO格式免费下载

资源摘要信息:"艺术文字图标下载" 1. 资源类型及格式:本资源为艺术文字图标下载,包含的图标格式有PNG和ICO两种。PNG格式的图标具有高度的透明度以及较好的压缩率,常用于网络图形设计,支持24位颜色和8位alpha透明度,是一种无损压缩的位图图形格式。ICO格式则是Windows操作系统中常见的图标文件格式,可以包含不同大小和颜色深度的图标,通常用于桌面图标和程序的快捷方式。 2. 图标尺寸:所下载的图标尺寸为128x128像素,这是一个标准的图标尺寸,适用于多种应用场景,包括网页设计、软件界面、图标库等。在设计上,128x128像素提供了足够的面积来展现细节,而大尺寸图标也可以方便地进行缩放以适应不同分辨率的显示需求。 3. 下载数量及内容:资源提供了12张艺术文字图标。这些图标可以用于个人项目或商业用途,具体使用时需查看艺术家或资源提供方的版权声明及使用许可。在设计上,艺术文字图标融合了艺术与文字的元素,通常具有一定的艺术风格和创意,使得图标不仅具备标识功能,同时也具有观赏价值。 4. 设计风格与用途:艺术文字图标往往具有独特的设计风格,可能包括手绘风格、抽象艺术风格、像素艺术风格等。它们可以用于各种项目中,如网站设计、移动应用、图标集、软件界面等。艺术文字图标集可以在视觉上增加内容的吸引力,为用户提供直观且富有美感的视觉体验。 5. 使用指南与版权说明:在使用这些艺术文字图标时,用户应当仔细阅读下载页面上的版权声明及使用指南,了解是否允许修改图标、是否可以用于商业用途等。一些资源提供方可能要求在使用图标时保留作者信息或者在产品中适当展示图标来源。未经允许使用图标可能会引起版权纠纷。 6. 压缩文件的提取:下载得到的资源为压缩文件,文件名称为“8068”,意味着用户需要将文件解压缩以获取里面的PNG和ICO格式图标。解压缩工具常见的有WinRAR、7-Zip等,用户可以使用这些工具来提取文件。 7. 具体应用场景:艺术文字图标下载可以广泛应用于网页设计中的按钮、信息图、广告、社交媒体图像等;在应用程序中可以作为启动图标、功能按钮、导航元素等。由于它们的尺寸较大且具有艺术性,因此也可以用于打印材料如宣传册、海报、名片等。 通过上述对艺术文字图标下载资源的详细解析,我们可以看到,这些图标不仅是简单的图形文件,它们集合了设计美学和实用功能,能够为各种数字产品和视觉传达带来创新和美感。在使用这些资源时,应遵循相应的版权规则,确保合法使用,同时也要注重在设计时根据项目需求对图标进行适当调整和优化,以获得最佳的视觉效果。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

DMA技术:绕过CPU实现高效数据传输

![DMA技术:绕过CPU实现高效数据传输](https://res.cloudinary.com/witspry/image/upload/witscad/public/content/courses/computer-architecture/dmac-functional-components.png) # 1. DMA技术概述 DMA(直接内存访问)技术是现代计算机架构中的关键组成部分,它允许外围设备直接与系统内存交换数据,而无需CPU的干预。这种方法极大地减少了CPU处理I/O操作的负担,并提高了数据传输效率。在本章中,我们将对DMA技术的基本概念、历史发展和应用领域进行概述,为读
recommend-type

SGM8701电压比较器如何在低功耗电池供电系统中实现高效率运作?

SGM8701电压比较器的超低功耗特性是其在电池供电系统中高效率运作的关键。其在1.4V电压下工作电流仅为300nA,这种低功耗水平极大地延长了电池的使用寿命,尤其适用于功耗敏感的物联网(IoT)设备,如远程传感器节点。SGM8701的低功耗设计得益于其优化的CMOS输入和内部电路,即使在电池供电的设备中也能提供持续且稳定的性能。 参考资源链接:[SGM8701:1.4V低功耗单通道电压比较器](https://wenku.csdn.net/doc/2g6edb5gf4?spm=1055.2569.3001.10343) 除此之外,SGM8701的宽电源电压范围支持从1.4V至5.5V的电
recommend-type

mui框架HTML5应用界面组件使用示例教程

资源摘要信息:"HTML5基本类模块V1.46例子(mui角标+按钮+信息框+进度条+表单演示)-易语言" 描述中的知识点: 1. HTML5基础知识:HTML5是最新一代的超文本标记语言,用于构建和呈现网页内容。它提供了丰富的功能,如本地存储、多媒体内容嵌入、离线应用支持等。HTML5的引入使得网页应用可以更加丰富和交互性更强。 2. mui框架:mui是一个轻量级的前端框架,主要用于开发移动应用。它基于HTML5和JavaScript构建,能够帮助开发者快速创建跨平台的移动应用界面。mui框架的使用可以使得开发者不必深入了解底层技术细节,就能够创建出美观且功能丰富的移动应用。 3. 角标+按钮+信息框+进度条+表单元素:在mui框架中,角标通常用于指示未读消息的数量,按钮用于触发事件或进行用户交互,信息框用于显示临时消息或确认对话框,进度条展示任务的完成进度,而表单则是收集用户输入信息的界面组件。这些都是Web开发中常见的界面元素,mui框架提供了一套易于使用和自定义的组件实现这些功能。 4. 易语言的使用:易语言是一种简化的编程语言,主要面向中文用户。它以中文作为编程语言关键字,降低了编程的学习门槛,使得编程更加亲民化。在这个例子中,易语言被用来演示mui框架的封装和使用,虽然描述中提到“如何封装成APP,那等我以后再说”,暗示了mui框架与移动应用打包的进一步知识,但当前内容聚焦于展示HTML5和mui框架结合使用来创建网页应用界面的实例。 5. 界面美化源码:文件的标签提到了“界面美化源码”,这说明文件中包含了用于美化界面的代码示例。这可能包括CSS样式表、JavaScript脚本或HTML结构的改进,目的是为了提高用户界面的吸引力和用户体验。 压缩包子文件的文件名称列表中的知识点: 1. mui表单演示.e:这部分文件可能包含了mui框架中的表单组件演示代码,展示了如何使用mui框架来构建和美化表单。表单通常包含输入字段、标签、按钮和其他控件,用于收集和提交用户数据。 2. mui角标+按钮+信息框演示.e:这部分文件可能展示了mui框架中如何实现角标、按钮和信息框组件,并进行相应的事件处理和样式定制。这些组件对于提升用户交互体验至关重要。 3. mui进度条演示.e:文件名表明该文件演示了mui框架中的进度条组件,该组件用于向用户展示操作或数据处理的进度。进度条组件可以增强用户对系统性能和响应时间的感知。 4. html5标准类1.46.ec:这个文件可能是核心的HTML5类库文件,其中包含了HTML5的基础结构和类定义。"1.46"表明这是特定版本的类库文件,而".ec"文件扩展名可能是易语言项目中的特定格式。 总结来说,这个资源摘要信息涉及到HTML5的前端开发、mui框架的界面元素实现和美化、易语言在Web开发中的应用,以及如何利用这些技术创建功能丰富的移动应用界面。通过这些文件和描述,可以学习到如何利用mui框架实现常见的Web界面元素,并通过易语言将这些界面元素封装成移动应用。