怎么在指定文件夹打开命令窗口（解放你的双手）

1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。

2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...

3.然后,在表格中绘制出按钮控件,并修改控件名称。

4.接着,鼠标左键单击【查看代码】按钮

5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，并选择字符串类型

6接着，在代码窗口中输入读取单元格的VBA语句

7最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出数据了，通过这样的操作，就学会用VBA读取单元格数据了。

可有固定的文件名和固定的文件夹路径，可用搜索文件指令然后显示在列表框内进行顺序打开文件处理

一、_压缩文件

'Shell函数

'Shell执行一个可执行文件.返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

'语法：

'Shell("可执行程序的路径 文件名或命令行",窗口的显示方式)

Sub 用绘图程序打开图片()

Dim mysh

mysh = Shell("mspaint.exe " & ThisWorkbook.path & "\pic.jpg", vbMaximizedFocus)

End Sub。

'WinRar命令的命令行表示方法

' WinRar程序路径 命令 开关1 开关2 开关3..开关N 压缩包路径 压缩的文件路径

'命令是指要进行怎么样的操作，如A是压缩，X是解压缩

'开关是具体操作时的细节，如压缩是是否把原文件删除，是否添加密码等

Sub RarFile() '压缩单个文件

Dim Rarexe As String

Dim myRAR As String

Dim Myfile As String

Dim FileString As String

Dim Result As Long

Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径

myRAR = ThisWorkbook.path & "\A.rar" '压缩后的文件名

Myfile = ThisWorkbook.path & "\B*.xls" ' 指定要压缩的文件

FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串

Result = Shell(FileString, vbHide) '执行压缩

End Sub

'如果文件名使用通配符,可以对同类的文件进行和压缩,

'如果只有路径没有文件名,则会把这个文件夹进行压缩

Sub RarFile2() '多个文件压在一起

Dim Rarexe As String

Dim myRAR As String

Dim Myfile As String

Dim FileString As String

Dim Result As Long

Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径

myRAR = ThisWorkbook.path & "\B.rar" '压缩后的文件名

' Myfile = ThisWorkbook.path & "\B\*.xls" ' 指定要压缩的文件类型

Myfile = ThisWorkbook.path & "\B\" ' 指定要压缩的文件夹路径

FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串

Result = Shell(FileString, vbHide) '执行压缩

End Sub。

以引用单元格A1为例，VBA中有如下几种方式：sub main()msgbox cells(1,1)

'第一种表示A1的方法msgbox cells(1,"A")

'第二种表示A1的方法msgbox range("A1")

'第三种表示A1的方法end sub关于Excel中单元格地址引用相关：在同一工作表中引用，只需单元格地址即可，即该单元格列行所在位置，列为首行所视英文字母，行为阿拉伯数字；在不同工作表中引用，则需表明所引用的工作表名，格式为“工作表名！单元格地址”，即这一引用是其他工作表中某单元格数据。

有关FileSearch对象更多的信息,请参考VBA自身的帮助,很详细的. 以下代码供参考. Sub aRef()Dim i As Long Dim fs As Object Set fs = Application.FileSearchWith fs'设置要查找的起始目录 .LookIn = C:\Tmep '要查找的文件类型 .FileType = msoFileTypeExcelWorkbooks '是否查找子目录 .SearchSubFolders = True '根据上面的设置执行查找 .ExecuteFor i = 1 To .FoundFiles.Count '遍历打开找到的EXCEL文件