vba打开excel文件并操作

Excel-VBA操作文件四大方法之一__利用Excel对象来处理文件

在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文件或数据库

文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。

本文主要介绍四种常用的方法：

1、利用Excel对象来处理文件；

2、利用VBA文件处理语句来处理文件；

3、利用FileSystemObject对象来处理文件；

4、利用API函数来处理文件。

当然对于数据库文件，还可以利用ADO＋SQL的方法操作，不过论坛已经有前辈详细介绍过此类方法，本文就不再重复了。

一、利用Excel对象来处理文件

利用Excel对象自带的方法来操作文件是最方便，也是最简单的。

我们主要利用Workbooks集合和Workbook对象的方法来操作文件。

1、打开Excel文件

我们可以用Workbooks.Open方法打开一个Excel工作簿。

Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPasswor

‘sub xlsOpen()

Set rrr = CreateObject(\ Set r = rrr.GetFolder(\练习\\\

Application.ScreenUpdating = False For Each i In r.Files

Workbooks.Open Filename:=(\练习\\\ Sheets(1).Cells(2,5 )=“10”

ActiveWorkbook.Close savechanges:=true Next

Application.ScreenUpdating = True ‘End Sub

ExecuteExcel4Macro \ ‘打印当前SHEET

ActiveWorkbook.Close savechanges:=false ‘不

VBA不用打开excel文件就可读写单元格数据 使用WPS时编的

在第一个工作薄添加CommandButton3按钮添加代码如下：

Private Sub CommandButton3_Click() Dim Wb As Workbook

Set Wb = GetObject(\项目设计\\操作表\\联系2.xls\ Wb.Sheets(1).Range(\

Workbooks(1).Sheets(1).Range(\ Dim str As String

str = Wb.Sheets(1).Range(\ MsgBox (str)

Wb.Sheets(1).Visible = xlSheetVisible Wb.Save Wb.Close True Set Wb = Nothing

End Sub

在第一个工作薄“Workbooks(1)”添加按钮

CommandButton1，添加如下代码：

Private Sub CommandButton1_Click()

Dim Wb As Workbooks

fileToOpen = Application.Ge

如何在VBA判断EXCEL或WORD文件已经打开，并用代码关闭

字体: 小 中 大 | 打印 发表于: 2003-6-17 20:17 作者: huanghai 来源: Office中国社区门户

如何在VBA（ACCESS）中用代码判断一个EXCEL或WORD文件已经打开，并用代码关闭

我也来说两句 查看全部回复 最新回复

?

竹笛 (2003-6-18 06:17:00)

笨办法，你试试：

1、在ACCESS代码中获取那个EXCEL文件中一个指定的cells的value 2、如果出错……，您知道了吧。 3、关闭这个EXCEL： olxApp.Quit

Set olxApp = Nothing '这个你是知道的

?

李寻欢 (2003-6-18 06:20:00)

Dim MyXL As Object

Set MyXL = GetObject(, \ For Each axls In MyXL.workbooks

If InStr(1, axls.Name, \ 'axls.Close '关闭文档 MyXL.Quit '退出excel

VBA文件操作及目录操作

VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。

（一）文件处理

1.Name 语句

语法：Name oldpathname As newpathname

功能：重命名一个文件、目录、或文件夹，移动一个文件。

说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。

示例：

On Error Resume Next '错误处理

Name \ '重命名 Name \ '移动文件

Name \ '跨驱动器移动并重命名文件

注意：Name不能移动一个目录或文件夹。

2、FileCopy 语句

语法：FileCopy source, destination

功能：复制一个文件。

说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。

示例：

FileCopy \ '从F盘复制TEST.xls到E盘

3、Kill 语句

语法：Kill pathname

功能：从磁盘中删除文件。

说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文

Excel-VBA操作文件方法总结

一、利用Excel对象来处理文件 ......................................................................................... 4 1、打开Excel文件 ........................................................................................................... 4 2、打开文本文件 ............................................................................................................. 4 3、打开其他文件 ............................................................................................................. 5 4、保存文件 ...............................

Excel VBA实例

目录

第1章 宏的应用技巧

宏是一个VBA程序，通过宏可以完成枯燥的、频繁的重复性工作。本章的实例分别介绍在Excel 2003、Excel 2007中录制宏、使用Visual Basic代码创建宏的方法，最后还以实例演示运行宏和编辑宏的方法。 1.1 创建宏 1

例001 在Excel 2003中录制宏 1

例002 打开Excel 2007的录制宏功能 3 例003 在Excel 2007中录制宏 4

例004 使用Visual Basic创建宏 5 1.2 管理宏 6

例005 运行宏 7 例006 编辑宏 8 第2章 VBE使用技巧

VBE（Visual Basic Editor）是编写VBA代码的工具，在上一章中曾使用VBE编辑宏代码。本章的实例介绍了设置VBE操作环境、在VBE中管理工程代码、使用VBE的辅助工具提高代码输入效率等方法。

2.1 设置VBE操作环境 10 例007 停靠VBE子窗口 10 例008 定制VBE环境 12 2.2 工程管理 13 例009 增加模块

// Class to read and write to Excel and text delimited spreadsheet //

// Created by Yap Chun Wei // December 2001 //

// Version 1.1

// Updates: Fix bug in ReadRow() which prevent reading of single column spreadsheet // Modified by jingzhou xu

#ifndef CSPREADSHEET_H #define CSPREADSHEET_H

#include #include

class CSpreadSheet

{

public: CSpreadSheet(CString File, CString SheetOrSeparator, bool Backup = true); // Open spreadsheet for reading and writing ~CSpreadSheet(); // Perform some cleanup functions

bool AddHeaders

Excel VBA经典应用案例（将数据导出为txt文件）

将数据导出为txt文件 Option Explicit

Sub ExportRange() Dim Filename As String

Dim NumRows As Long, NumCols As Integer Dim r As Long, c As Integer Dim Data

Dim ExpRng As Range Set ExpRng = Selection

NumCols = ExpRng.Columns.Count NumRows = ExpRng.Rows.Count Filename = \ Open Filename For Output As #1 For r = 1 To NumRows For c = 1 To NumCols

Data = ExpRng.Cells(r, c).Value

If IsNumeric(Data) Then Data = Val(Data) If IsEmpty(ExpRng.Cells(r, c))

很多Excel VBA文章和图书都介绍过如何优化VBA代码，使代码运行得更快。下面搜集了一些使Excel VBA代码运行更快的技术和技巧，基本上都是实践经验的总结。如果您还有其它优化Excel VBA代码的方法，可以在本文后留言或给出链接，与大家分享。

对于应用程序属性，在代码运行时关闭除必需属性以外的其它所有属性

在代码运行时关闭不需要的Excel功能。其原因是，如果通过VBA更新不同的单元格区域，或者从不同的单元格区域复制/粘贴来创建汇总表，则不希望Excel浪费时间和资源来重新计算公式、显示粘贴进度或者重绘网格，尤其在每次单独的操作后（更有甚者，如果代码使用了循环，则每次单独操作后Excel都会在后台运行这些功能）。只需要在代码执行结束时进行一次重新计算和重绘就足以使工作簿更新。

下面的代码将帮助您提高代码的执行速度。

（1）放置在主代码前的一段代码，获取Excel当前的属性状态，然后将其关闭

'获得当前的Excel设置状态,将其放置在代码的开头

Application.ScreenUpdating = False Application.DisplayStatusBar = False

Application.Calcul