Excel-VBA文件操作5
2010-07-14 08:11
363 查看
示例
本示例关闭 Book1.xls,并放弃所有对此工作簿的更改。
Workbooks("BOOK1.XLS").Close SaveChanges:=False
本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变,Microsoft Excel 将显示询问是否保存更改的对话框和相应提示。
Workbooks.Close
6、综合实例
假如F盘有一个Excel文件test.xls,现在有另一个Excel文件要访问test.xls的数据,我们来看用VBA代码如何操作。代码如下:
首先关闭屏幕刷新,是为了防止test.xls在打开时被看见(有时候还是看的见)。打开后,见test.xls的Sheet1的单元格A2中的值赋给当前工作簿的Sheet1的单元格B2,然后关闭test.xls。
当要打开的工作簿不确定的时候,可以通过调用打开对话框来让用户自己选择。
可改为如下:
7、总结
利用Excel对象的方法进行文件操作是最简单,也是最方便的,适合初学者。对于Excel文件格式,如果我们仅仅是读取其表格中的内容,这种方法也是首选。对于文本文件的操作,使用第二种方法比较方便,若要将文本转换成表格,那么使用此方法也是合适的。
本示例关闭 Book1.xls,并放弃所有对此工作簿的更改。
Workbooks("BOOK1.XLS").Close SaveChanges:=False
本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变,Microsoft Excel 将显示询问是否保存更改的对话框和相应提示。
Workbooks.Close
6、综合实例
假如F盘有一个Excel文件test.xls,现在有另一个Excel文件要访问test.xls的数据,我们来看用VBA代码如何操作。代码如下:
Public Sub test() Application.ScreenUpdating = False Workbooks.Open "f:test.xls" ThisWorkbook.Sheets(1).Range("b1") = ActiveWorkbook.Sheets(1).Range("a2") ActiveWorkbook.Close Application.ScreenUpdating = True End Sub
首先关闭屏幕刷新,是为了防止test.xls在打开时被看见(有时候还是看的见)。打开后,见test.xls的Sheet1的单元格A2中的值赋给当前工作簿的Sheet1的单元格B2,然后关闭test.xls。
当要打开的工作簿不确定的时候,可以通过调用打开对话框来让用户自己选择。
可改为如下:
Public Sub test() Application.ScreenUpdating = False Dim Filename as String Filename = Application.GetOpenFileName Workbooks.Open Filename ThisWorkbook.Sheets(1).Range("b1") = ActiveWorkbook.Sheets(1).Range("a2") ActiveWorkbook.Close Application.ScreenUpdating = True End Sub
7、总结
利用Excel对象的方法进行文件操作是最简单,也是最方便的,适合初学者。对于Excel文件格式,如果我们仅仅是读取其表格中的内容,这种方法也是首选。对于文本文件的操作,使用第二种方法比较方便,若要将文本转换成表格,那么使用此方法也是合适的。
相关文章推荐
- ★★Excel-VBA操作文件四大方法之二
- ★★★★Excel-VBA操作文件四大方法之四 by excelhome
- ★Excel-VBA操作文件四大方法之一
- Excel-VBA文件操作
- Excel-VBA操作文件四大方法之四(2)
- excel中VBA对多个文件的操作
- ★★Excel-VBA操作文件四大方法之二
- Excel 文件复制操作vba代码
- ★★★★Excel-VBA操作文件四大方法之四
- Excel-VBA文件操作1
- excel vba xml文件操作
- ★★★Excel-VBA操作文件四大方法之三
- Excel 关于新建xls文件 新建sheet 合并sheet的VBA操作代码
- Excel-VBA文件操作2
- ★★★Excel-VBA操作文件四大方法之三
- Excel VBA高效办公应用-第十六章-VBA高效文件操作(同时给多个工作簿加解密)
- Excel-VBA操作文件四大方法之一
- Excel-VBA操作文件四大方法
- Excel-VBA文件操作3
- 使用VBA操作文件(1):使用Excel对话框