1. excel vba帮助文件
用FileSearch功能，给个例子，自己研究一下： Sub test() With Application.FileSearch '寻找的目录是当前工作薄所在的目录 .LookIn = ThisWorkbook.Path '只寻找文件,不寻找下级目录 .SearchSubFolders = False '要找的文件是XLS文件 .FileType = msoFileTypeExcelWorkbooks '寻找 .NewSearch '如果找到文件，.execute()将大于0 '找到的文件总数是.foundFilescount '以下是把找到的文件名称全部显示在表格中 If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next End If End With End Sub
2. vba生成excel文件
在Excel中用VBA创建文件夹：
1、在excel中创建点击按钮
2、在按钮上写入如下代码：
Sub createDir()
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Sub
3、点击按钮后就会在f盘下创建目录：
3. vba自动保存代码
Excel中刷新数据透视表的两种方法：
1、手工刷新(1)右键菜单, 透视表内任意单元格鼠标右键-----刷新数据；(2)使用数据透视表工具栏上的刷新按钮；(3) 添加刷新全部透视表工具按钮：（3.1）直接在透视表工具栏选项添加按钮---添加或删除按钮---数据透视表---全部刷新；（3.2）自定义工具栏选项按钮：自定义---命令---数据---全部刷新---将此按钮拖放到工具栏上，即可直接点击此按钮以实现整个工作簿内透视表数据刷新。 操作小技巧：窗口--新建窗口，此时会打开一个同样的工作簿，窗口中选择“与工作簿**并排比较”，这样可在并排的两个工作簿中将数据源与透视表刷新进行直观对比，同理在这里你可以试试隐藏窗口哦！记得在excel中是可以设置打开一个存放个人宏的工作簿，而且是一打开就隐藏了窗口了。
2、自动刷新---通过设置透视表属性 (1)打开时刷新。顾名思义---打开工作表时，就可以刷新数据透视表。 (2)定时刷新。可以设置刷新频率的时间，但是仅适应于外部数据源所创建的数据透视表。 操作：如何创建1个基于外部数据源创建数据透视表，“数据”菜单---导入外部数据---导入数据---选中外部数据源---选择表格---导入数据---创建数据透视表---完成。
3、自动刷新---使用VBA代码实现自动刷新透视表3.1激活工作表时刷新打开透视表代码窗口输入： Private Sub Worksheet_Activate()---当激活这个工作表时执行下列语句命令 ActiveSheet.PivotTables("数据透视表").PivotCache.Refresh---更新名为“数据透视表”的数据透视表注意：数据透视表的名在那里呢？也不要把它与工作表的名称混为一团，每一个数据透视表创建时都是有它自已的名称的，并且它是可以改动的
4. excel vba 保存
呵呵，这小白需求，无语。
实现起来倒是很容易：
每个工作表下面写这个：
1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Save
End Sub
只要有单元格被改就自动保存。
总体感觉这需求毫无意义也没有必要用VBA实现。
5. vba代码保存在哪里
代码及注释如下：Sub main()x = Range("A65536").End(3).Row'x的值为A列中最后一个非空单元格行号ReDim a(x)'重新定义数组a，使之上限为xFor i = 1 To x‘i从A1依次往下循环，直到最后一行a(i - 1) = Range("A" & i)'将A列单元格值依次存放于数组中NextEnd Sub
6. vba存档格式
就目前了解的，比较好的是EZ4（GBA卡带大小的那种，使用MINI-SD储存卡）和Elink2。 别的像M3、SC的就不用考虑（SC有拖慢问题，M3的更新早就停止了）。 不过EZ4停产了，估计很难买到（淘宝上看到有，180元左右），建议买Elink2，基本上它可以满足要求，比如可以使用GBA模拟器VBA的存档文件。 这里说明一下，Elink2只能识别SRAM存档（64KB大小），想使用非SRAM存档可以用软件DSSaveTools转换一下
- 相关评论
- 我要评论
-