编程常用代码.docVIP

编程常用代码 Excel2007启用宏：OFFICE按钮→选项→信任中心→信任中心设置→宏设置 代码里可以命名名称，比如 rng1.Name = data1 ，然后在公式中使用它 Debug.Print 7777 在立即窗口中显示 Environ(Computername) 计算机名 Environ(userprofile)　‘ 桌面路径 ActiveWindow.Caption=XXXXX 在显示文件名的地方显示XXXXX Windows(ThisWorkbook.Name).Visible = False 隐藏excel主窗口ThisWorkbook.Name[文件名] 文件和文件夹 当前文件夹的名称：CurDir 更改文件或文件夹的名称：（Name 原文件 As 新文件） 检查文件或文件夹是否存在：m=Dir(文件,Nomal) m=Dir(文件夹,Folder)Directory 创建文件夹（MkDir D：\文件夹名） f = Dir(D:\省份分表, vbDirectory) 判断是否已经存在 If f = Then MkDir (D:\省份分表) 如果不存在就建立 删除文件：（Kill D：\文件夹名\成品.xls 删除空文夹：（RmDir D：\文件夹名） 复制文件：（FileCopy） For i = 101 To 10000 FileCopy D:\迅雷.txt, D:\文件夹名\ i 迅雷.txt Next With Application.FileSearch .Filename = *.* .LookIn = ThisWorkbook.Path \分表 .Execute k = .FoundFiles.Count 文件夹中的文件个数 End With Sub 生成目录() 有子文件夹也查到 Set fs = Application.FileSearch With fs .LookIn = D:\暂用\ 设置要查找的起始目录 .Filename = *.* .SearchSubFolders = True 是否查找子目录 .Execute 根据上面的设置执行查找 For i = 1 To .FoundFiles.Count 遍历文件 a = Dir(.FoundFiles(i)) Cells(i + 1, 3) = a Next i End With End Sub Shell explorer.exe k \生成的表\, vbMaximizedFocus 展开文件夹 Sub 动态读取指定文件夹名() On Error Resume Next Dim stMedd As String stMedd = 请选择文件目录： Set obMapp = CreateObject(Shell.Application).BrowseForFolder(0, stMedd, H1) If Not obMapp Is Nothing Then Directory = obMapp.self.Path \ 文件夹名 [G1].Value = Directory Else Exit Sub End If Call FilesList.FilesList End Sub 变量 模块级变量的声明格式Public Directory Dim x As Integer 声明变量 Byte (0到255的整数) Integer % (-32768+32768) Date (日期) String $ (65400个字符) Decimal (小数) Long Single ! Currency @ Format(32, 0000) ‘Format格式结果为：0032 Dim Arr() 数组 ReDim Preserve Arr(1 To r) ‘声明动态数组 Array函数 Application.Transpose ‘转置 数组下限LBound(Arr)=0 ，数组上限 UBound(Arr)=4 Erase arr ’清空数组 IsArray ’指出变量是否为一个数组 If Application.CountA(Arr)0 Then 判断数组不为空 Range(A1:D1) = Array(1001, 现金, 300000, Date) 在一行多列中依次输入不同数据 Range(A1:A4) = Application.Transpose(Array(1001, 现金, 300000, Date)) 在一列多行中次输入不同数 Sub 字典 () r = Sheet1.Range(A655