VBA中新建、读取、保存和另存EXCEL
2012-08-29 10:35
393 查看
Dim app_excel As Excel.Application
Dim book_excel As Excel.Workbook
Set app_excel = New Excel.Application '申请一个Excel.Application内存空间
Set book_excel = app_excel.Workbooks.Open("d:/net/vba/test.xls") '打开EXCEL文件,然后把值返回赋给Workbook类型 book_excel
book_excel.Sheets("sheet1").Cells(2, 2) = "hello world"
book_excel.SaveAs ("d:/net/vba/aaaa.xls") '另存为aaaaa.xls
book_excel.Close 0 '关闭test.xls,0为不保存修改,1为保存修改后的内容
新建一个EXCEL文件
Dim app_excel As Excel.Application
Dim book_excel As Excel.Workbook
Set app_excel = New Excel.Application '申请一个Excel.Application内存空间
'''''''''''''''''''新建一个EXCEL 文件''''''''''''''''''''''''''''''
Set book_excel = app_excel.Workbooks.Add
book_excel.SaveAs ("d:/net/vba/bbbb.xls")
book_excel.Sheets("sheet1").Cells(3, 3) = "this new workbook"
book_excel.Close 1
下面为SAVEAS 的用法
SaveAs 方法
参阅应用于示例特性应用于 Chart 和 Worksheet 对象的 SaveAs 方法。
保存对不同的文件中的图表或工作表的更改。
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, Local)
expression 必需。该表达式返回上述对象之一。
Filename Variant 类型,可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径,Microsoft Excel 将文件保存到当前文件夹中。
FileFormat Variant 类型,可选。保存文件时使用的文件格式。要得到有效选项的列表,请参阅 FileFormat 属性。对于已有文件,其默认格式是上次指定的文件格式;对于新文件,默认格式为当前使用的 Excel 版本格式。
Password Variant 类型,可选。一个区分大小写的字符串(最长不超过 15 个字符),用于指定文件的保护密码。
WriteResPassword Variant 类型,可选。该字符串表示文件的写保护密码。如果文件保存时带有密码,但打开文件时不输入密码,则该文件以只读方式打开。
ReadOnlyRecommended Variant 类型,可选。如果该值为 True,则在打开文件时显示一条信息,提示该文件以只读方式打开。
CreateBackup Variant 类型,可选。如果该值为 True,则创建备份文件。
AddToMru Variant 类型,可选。如果该值为 True ,则将该工作簿添加到最近使用的文件列表中。默认值为 False。
TextCodePage Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
TextVisualLayout Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
Local Variant 类型,可选。如果该值为 True,则以 Microsoft Excel(包括控制面板设置)的语言保存文件。如果该值为 False(默认值),则以 Visual Basic for Applications (VBA) 的语言保存文件,其中 Visual Basic for Applications (VBA) 为典型安装的美国英语版本,除非 VBA 项目中的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目。
应用于 Workbook 对象的 SaveAs 方法。
保存对不同文件中的工作表的更改。
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression 必需。该表达式返回上述对象中一个对象。
Filename Variant 类型,可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径,Microsoft Excel 将文件保存到当前文件夹中。
FileFormat Variant 类型,可选。保存文件时使用的文件格式。要得到有效选项的列表,请参阅 FileFormat 属性。对于已有文件,其默认格式是上次指定的文件格式;对于新文件,默认格式为当前使用的 Excel 版本格式。
Password Variant 类型,可选。它是一个区分大小写的字符串(最长不超过 15 个字符),用于指定文件的保护密码。
WriteResPassword Variant 类型,可选。 该字符串表示文件的写保护密码。如果文件保存时带有密码,但打开文件时不输入密码,则该文件以只读方式打开。
ReadOnlyRecommended Variant 类型,可选。如果该值为 True,则在打开文件时显示一条信息,提示该文件以只读方式打开。
CreateBackup Variant 类型,可选。如果该值为 True,则创建备份文件。
AccessMode XlSaveAsAccessMode 类型,可选。
XlSaveAsAccessMode 可为以下 XlSaveAsAccessMode 常量之一。
xlExclusive (不含方式)
xlNoChange default (不更改访问方式)
xlShared (共享列表)
如果省略此参数,则不会更改访问方式。如果在没有改变文件名的情况下保存共享列表,则可以忽略参数。若要改变访问方式,请使用 ExclusiveAccess 方法。
ConflictResolution XlSaveConflictResolution 类型,可选。
XlSaveConflictResolution 可为以下 XlSaveConflictResolution 常量之一。
xlUserResolution (显示冲突解决方案对话框)
xlLocalSessionChanges (自动接受本地用户的修改)
xlOtherSessionChanges (接受除本地用户之外的其他用户的更改)
如果忽略本参数,则显示冲突处理对话框。
AddToMru Variant 类型,可选。如果该值为 True ,则将该工作簿添加到最近使用的文件列表中。默认值为 False。
TextCodePage Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
TextVisualLayout Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
Local Variant 类型,可选。如果该值为 True,则以 Microsoft Excel(包括控制面板设置)的语言保存文件。如果该值为 False(默认值),则以 Visual Basic for Applications (VBA) 的语言保存文件,其中 Visual Basic for Applications (VBA) 为典型安装的美国英语版本,除非 VBA 项目中的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目。
示例
本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿。
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
Dim book_excel As Excel.Workbook
Set app_excel = New Excel.Application '申请一个Excel.Application内存空间
Set book_excel = app_excel.Workbooks.Open("d:/net/vba/test.xls") '打开EXCEL文件,然后把值返回赋给Workbook类型 book_excel
book_excel.Sheets("sheet1").Cells(2, 2) = "hello world"
book_excel.SaveAs ("d:/net/vba/aaaa.xls") '另存为aaaaa.xls
book_excel.Close 0 '关闭test.xls,0为不保存修改,1为保存修改后的内容
新建一个EXCEL文件
Dim app_excel As Excel.Application
Dim book_excel As Excel.Workbook
Set app_excel = New Excel.Application '申请一个Excel.Application内存空间
'''''''''''''''''''新建一个EXCEL 文件''''''''''''''''''''''''''''''
Set book_excel = app_excel.Workbooks.Add
book_excel.SaveAs ("d:/net/vba/bbbb.xls")
book_excel.Sheets("sheet1").Cells(3, 3) = "this new workbook"
book_excel.Close 1
下面为SAVEAS 的用法
SaveAs 方法
参阅应用于示例特性应用于 Chart 和 Worksheet 对象的 SaveAs 方法。
保存对不同的文件中的图表或工作表的更改。
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, Local)
expression 必需。该表达式返回上述对象之一。
Filename Variant 类型,可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径,Microsoft Excel 将文件保存到当前文件夹中。
FileFormat Variant 类型,可选。保存文件时使用的文件格式。要得到有效选项的列表,请参阅 FileFormat 属性。对于已有文件,其默认格式是上次指定的文件格式;对于新文件,默认格式为当前使用的 Excel 版本格式。
Password Variant 类型,可选。一个区分大小写的字符串(最长不超过 15 个字符),用于指定文件的保护密码。
WriteResPassword Variant 类型,可选。该字符串表示文件的写保护密码。如果文件保存时带有密码,但打开文件时不输入密码,则该文件以只读方式打开。
ReadOnlyRecommended Variant 类型,可选。如果该值为 True,则在打开文件时显示一条信息,提示该文件以只读方式打开。
CreateBackup Variant 类型,可选。如果该值为 True,则创建备份文件。
AddToMru Variant 类型,可选。如果该值为 True ,则将该工作簿添加到最近使用的文件列表中。默认值为 False。
TextCodePage Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
TextVisualLayout Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
Local Variant 类型,可选。如果该值为 True,则以 Microsoft Excel(包括控制面板设置)的语言保存文件。如果该值为 False(默认值),则以 Visual Basic for Applications (VBA) 的语言保存文件,其中 Visual Basic for Applications (VBA) 为典型安装的美国英语版本,除非 VBA 项目中的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目。
应用于 Workbook 对象的 SaveAs 方法。
保存对不同文件中的工作表的更改。
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression 必需。该表达式返回上述对象中一个对象。
Filename Variant 类型,可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径,Microsoft Excel 将文件保存到当前文件夹中。
FileFormat Variant 类型,可选。保存文件时使用的文件格式。要得到有效选项的列表,请参阅 FileFormat 属性。对于已有文件,其默认格式是上次指定的文件格式;对于新文件,默认格式为当前使用的 Excel 版本格式。
Password Variant 类型,可选。它是一个区分大小写的字符串(最长不超过 15 个字符),用于指定文件的保护密码。
WriteResPassword Variant 类型,可选。 该字符串表示文件的写保护密码。如果文件保存时带有密码,但打开文件时不输入密码,则该文件以只读方式打开。
ReadOnlyRecommended Variant 类型,可选。如果该值为 True,则在打开文件时显示一条信息,提示该文件以只读方式打开。
CreateBackup Variant 类型,可选。如果该值为 True,则创建备份文件。
AccessMode XlSaveAsAccessMode 类型,可选。
XlSaveAsAccessMode 可为以下 XlSaveAsAccessMode 常量之一。
xlExclusive (不含方式)
xlNoChange default (不更改访问方式)
xlShared (共享列表)
如果省略此参数,则不会更改访问方式。如果在没有改变文件名的情况下保存共享列表,则可以忽略参数。若要改变访问方式,请使用 ExclusiveAccess 方法。
ConflictResolution XlSaveConflictResolution 类型,可选。
XlSaveConflictResolution 可为以下 XlSaveConflictResolution 常量之一。
xlUserResolution (显示冲突解决方案对话框)
xlLocalSessionChanges (自动接受本地用户的修改)
xlOtherSessionChanges (接受除本地用户之外的其他用户的更改)
如果忽略本参数,则显示冲突处理对话框。
AddToMru Variant 类型,可选。如果该值为 True ,则将该工作簿添加到最近使用的文件列表中。默认值为 False。
TextCodePage Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
TextVisualLayout Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。
Local Variant 类型,可选。如果该值为 True,则以 Microsoft Excel(包括控制面板设置)的语言保存文件。如果该值为 False(默认值),则以 Visual Basic for Applications (VBA) 的语言保存文件,其中 Visual Basic for Applications (VBA) 为典型安装的美国英语版本,除非 VBA 项目中的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目。
示例
本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿。
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
相关文章推荐
- 用VBA读取Excel表格输出到格式化的xml文件中
- c#中创建、打开、读取、写入、保存Excel的一般性代码
- golang实现读取当前所在文件夹里面的txt数据,去除空格,以列的形式保存在excel中
- Excel 关于新建xls文件 新建sheet 合并sheet的VBA操作代码
- 【VBA研究】利用ADO让普通人用excel读取oracle数据库表的通用办法
- 怎样读取本地Excel数据,并保存到时服务器
- Java 读取excel指定行列数据以及将数据保存到txt文件中
- VBA实现保存Excel多个工作表中的选择区域为CSV文件
- VBA下弹框打开excel文件并读取数据
- 《C#程序设计》第三次作业 C#读取Excel文件,并保存为文本文件
- 读取excel保存数据库
- PHPExcel读取EXCEL中的图片并保存到本地的方法
- C# Excel 创建、打开、读取、写入、保存的一般性代码
- 从txt读取信息然后保存到excel中示例
- 用C#编程从数据库中读取图片数据导进Excel文件的方法(如何从数据库中读取保存的文件,直接打开,中间不保存到本地)
- Excel应用-术语管理模板(记录单新建记录功能的VBA实现)
- 一个可以从excel中读取数据并生成xml的vba程序
- C#呼叫COM方式读取Excel资料并保存为DataSet
- C# 读取Excel文件 并保存为html文件
- Asp.net 从Excel读取图片并保存,无法从内存读取图片,Excel组件和相关IIS的配置及解决办法