文件操作

'1 判断A.Xls文件是否存在

    Sub W1()If Len(Dir("d:/A.xls")) = 0 ThenMsgBox "A文件不存在"ElseMsgBox "A文件存在"End IfEnd Sub

'2 判断A.Xls文件是否打开

Sub W2()Dim X As IntegerFor X = 1 To Windows.CountIf Windows(X).Caption = "A.XLS" ThenMsgBox "A文件打开了"Exit SubEnd IfNext
End Sub

'3 excel文件新建和保存

  Sub W3()Dim wb As WorkbookSet wb = Workbooks.Addwb.Sheets("sheet1").Range("a1") = "abcd"
'    wb.SaveAs "D:/B.xls"wb.SaveAs ("D:/C.xls")End Sub

'4 excel文件打开和关闭

 Sub w4()Dim wb As WorkbookSet wb = Workbooks.Open("D:/B.xls")MsgBox wb.Sheets("sheet1").Range("a1").Valuewb.Close FalseEnd Sub

'5 excel文件保存和备份

Sub w5()Dim wb As WorkbookSet wb = ThisWorkbookwb.Savewb.SaveCopyAs "D:/ABC.xls"End Sub

'6 excel文件复制和删除

  Sub W6()FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"Kill "D:/ABC.XLS"End SubSub killFile()Kill ("D:/D.xls")End Sub

文件夹基本操作
'1 判断文件夹是否存在
'dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹，如果结果为""，则表示不存在。

 Sub w1()If Dir(ThisWorkbook.path & "\2011年报表2", vbDirectory) = "" ThenMsgBox "不存在"ElseMsgBox "存在"End IfEnd Sub

'2 新建文件夹
'Mikdir语句可以创建一个文件夹

Sub w2()MkDir ThisWorkbook.path & "\Test"
End Sub

'3 删除文件夹

'RmDir语句可以删除一个文件夹，如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。
'在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。

 Sub w3()RmDir ThisWorkbook.path & "\test"End Sub

'4 文件夹重命名

  Sub w4()Name ThisWorkbook.path & "\test" As ThisWorkbook.path & "\test2"End Sub

'5 文件夹移动
'同样使用name方法，可以达到移动的效果，而且连文件夹的文件一起移动

Sub w5()Name ThisWorkbook.path & "\test2" As ThisWorkbook.path & "\2011年报表\test100"
End Sub

'6 文件夹复制

   Sub CopyFile_fso()Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")fso.CopyFolder ThisWorkbook.path & "\测试新建文件夹", ThisWorkbook.path & "\2011年报表\"Set fso = NothingEnd Sub

'7 打开文件夹
'使用shell函数桌面管理程序打开文件夹

  Sub w7()Shell "explorer.exe " & ThisWorkbook.path & "\2011年报表", 1End Sub

'遍历指定文件夹中的文件

 Sub 遍历文件()Dim Filename As String, mypath As String, k As Integermypath = ThisWorkbook.path & "\2011年报表\1月\A公司\"Range("A1:A10") = ""Filename = Dir(mypath & "*月*.xls")Dok = k + 1Cells(k, 1) = FilenameFilename = DirLoop Until Filename = ""End Sub

Sub 遍历子文件夹()Dim Filename As String, mypath As String, k As Integermypath = ThisWorkbook.path & "\2011年报表\"Range("A1:A10") = ""Filename = Dir(mypath, vbDirectory)DoIf Not Filename Like "*.*" Thenk = k + 1Cells(k, 1) = FilenameEnd IfFilename = DirLoop Until Filename = ""End Sub

遍历文件

Sub test3()Dim wb As WorkbookDim i As LongDim tDim arr()ActiveSheet.UsedRange = ""With Application.FileSearch '调用fileserch对象.NewSearch '开始新的搜索.LookIn = ThisWorkbook.path  '设置搜索的路径.SearchSubFolders = True '搜索范围包括 LookIn 属性指定的文件夹中的所有子文件夹.Filename = "*.xl*" '设置搜索的文件类型If .Execute() > 0 Then '如果找到文件ReDim arr(1 To .FoundFiles.Count, 1 To 1)For i = 1 To .FoundFiles.Countarr(i, 1) = .FoundFiles(i) '把找到的文件放在单元格里Next iElseMsgBox "没找到文件"End IfEnd WithRange("a1").Resize(i - 1) = arrEnd Sub

VBA基础知识整理（文件操作）相关推荐

Python基础知识_day10_文件操作_pickle模块_os模块_shutil模块
文章目录 1. 文本文件和二进制文件 2. 创建文件对象 open() 3. 文本文件的写入 3.1 write()/writelines()写入数据 3.2 with语句 4. 文本文件的读取 5. ...
VBA基础知识整理（文本文件操作）
txt文件的读写 'Open 文件名 for 打开方式 as 文件编号'打开方式:'Input :只能读,不能写'Append:允许读也允许写,如果存在文件就追加记录,如果没有就新建文件'Output ...
VBA基础知识整理（字典，自定义函数）
字典基本概念 '1 什么是VBA字典?'字典(dictionary)是一个储存数据的小仓库.共有两列.'第一列叫key , 不允许有重复的元素.'第二列是item,每一个key对应一个item,本列 ...
VBA基础知识整理（数据类型）
'1 数据类型综述 '在VBA中的数据类型有整数.文本.对象等类型.这些不同的类型有着特定的作用,在进行运算时也会占用 '不同大小的内存,所以我们在编写程序时为了提高运行效率,一般都要定义数据的类型. ...
VBA基础知识整理（日期，时间）
日期和时间计算 '1 计算两个日期相隔天数,月数,年数,小时,分种,秒 Sub tt1()Dim d1, d2 As Dated1 = #11/21/2011#d2 = #12/1/2011#Debu ...
VBA基础知识整理（图象图表）
shape对象的类型和属性 'Shapes 对象, '该对象代表工作表或图形工作表上的所有图形,它是sheets和chart的子对象(属性) Sub t2()On Error Resume NextD ...
python常用变量名_python基础知识整理
Python Python开发 Python语言 python基础知识整理序言:本文简单介绍python基础知识的一些重要知识点,用于总结复习,每个知识点的具体用法会在后面的博客中一一补充程序: 一 ...
计算机二级c语基础知识,计算机二级C语基础知识整理.doc
计算机二级C语基础知识整理 1.1 算法算法:是一组有穷指令集,是解题方案的准确而完整的描述.通俗地说,算法就是计算机解题的过程.算法不等于程序,也不等于计算方法,程序的编制不可能优于算法的设计. ...
centos7创建asm磁盘_Oracle ASM 磁盘组基础知识整理（收藏版）
为什么要写这么一篇基础知识呢?还是有那么一点点原因的,不是胡编乱造还真是有真实存在的事件的,前两周里因一套生产环境数据库磁盘不足无法对其进行表空间扩容,需要向存储岗申请存储资源,当存储岗划好资源加完存 ...

VBA基础知识整理（文件操作）

文件操作

VBA基础知识整理（文件操作）相关推荐

最新文章

热门文章