1. vba新建一个excel文件
在Excel选项中，“常用”→“新建工作簿时”→包含的工作表数→改为5。以后新建工作簿时，会默认打开5个工作表sheet。
2. vba 新建文件
1.用Shell函数打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Shell "explorer.exe " & sPath, vbMaximizedFocus
End Sub
Shell函数是vba内置的函数，使用起来非常方便。它可以直接运行各种exe程序，同时附带参数运行。
使用Shell函数还可以直接运行Python打包后的exe程序，从而借助Python的强大功能助推VBA。
在本例中，Shell函数通过调用文件资源管理器explorer.exe直接打开指定的文件夹，其中 vbMaximizedFocus表示打开的时候最大化显示。
方法二：用Shell对象打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Dim oShell As Object
Set oShell = VBA.CreateObject("shell.application")
With oShell
.Open (sPath)
End With
End Sub
其实这个原理和Shell是一样的，但是Shell对象提供了自动化接口，功能更全，不仅可以打开文件夹，还可以做很多操作电脑的事情。
比如切换到桌面、打开运行对话框、关闭电脑等等，如下所示
Sub exceloffice()
Set oShell = CreateObject("shell.application")
With oShell
'切换到桌面
.ToggleDesktop
'打开运行对话框
.FileRun
'关闭电脑，记得保存文件
.ShutdownWindows
End With
End Sub
3. vba 新建sheet
方法/步骤如下
1
我们在D盘下的test文件夹新建了一个test.xlsx文件，并在文件中的工作表中A1单元格输入一些信息。
2
保存并关闭上面新建的文件，在另外一个Excel文件中打开Visual Basic，添加模块和过程。
3
在过程中输入打开文件的代码：
Workbooks.Open：在Workbooks表示文件，Open是打开的动作。
如果仅执行以上代码，会报错。
4
因此，打开文件夹的动作后面需要加上必要的参数：
Filename:="D:\test\test.xlsx"：找到D盘test文件夹下的文件。
5
执行以上代码后，就可以打开文件test.xlsx。
6
打开文件后，我们对文件做一些数据操作，如在A2单元格输入Hi World!
代码ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"：当前活跃的文件下的第一张工作表下的A2单元格输入信息。
7
再次执行以上代码后，可以看到文件内容已更新
4. vba新建一个文件夹
1.打开一个表格文件；
2.按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【打开文件选择对话框】；
3.定义对话框变量（Dim fd As FileDialog：Set fd = Application.FileDialog(msoFileDialogFilePicker)）；
4.设置文件默认目录及显示对话框;
5.执行宏后就会弹出文件选择对话框。
5. vba新建一个excel文件并写入内容
1、首先，在Excel中按快捷键Alt+f11。
2、然后，在进入的VBA编辑器中依次点击插入——模块。
3、接着，在模块中输入下面的代码：
Option Explicit
Sub addwork()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub
4、之后，在VBA编辑器左侧输入模块的名称。
5、如图所示，关闭掉VBA编辑器，返回到Excel工作表中，再依次点击视图——宏——查看宏。
6、最后，在弹出的窗口中点选宏名，再点击执行按钮即可。
6. vba新建表
在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盘下创建目录：
7. vba建立新工作表
1打开Excel表格，点击【文件】，【另存为】，在“保存类型”里面选择“Excel 启用宏的工作薄”并进行保存。
2点击【开发工具】，【Visual Basic】打开VBA工程窗口。
3在左侧的“VBAProject（自动记录时间点.xlsm）”下方双击“Sheet1(Sheet1）”打开代码输入窗口。
4在代码输入窗口里面输入以下VBA代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表选定区域发生改变时执行
Dim b1 As Boolean
Dim a, b, c, d, e, f As Variant
Dim i, j As Integer
Set myDocument = ThisWorkbook.Worksheets("Sheet1")
For i = 2 To 1000 '循环2-1000次，即：以下自动填充时间到1000行
a = myDocument.Cells(i, 1) '将单元格赋值给a
b = myDocument.Cells(i, 2)
c = myDocument.Cells(i, 3)
d = myDocument.Cells(i, 4)
e = myDocument.Cells(i, 5)
f = myDocument.Cells(i, 6)
b1 = WorksheetFunction.And(a <> "", b <> "", c <> "", d <> "", e <> "")
If b1 = True And f = "" Then '如果所在行已经填写信息且自动填充时间为空白，则执行自动填充时间
5在同一行上面的第1到第5列对应的单元格都写入数据信息，且同一行上面的第6列对应的单元格是空白的，那么就会在同一行上面的第6个单元格里面自动写入当前的时间。
8. vba创建excel
材料/工具：Excel2010 1、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。
2、接着，在表格中输入简单的表格，比如水果表格。
3、然后在VBA控件下拉菜单中，选择按钮控件。
4、接着在表格中绘制出按钮控件，并修改控件名称。
5、然后，鼠标左键单击【查看代码】按钮。
6、接着，在代码窗口中输入给单元格的赋值语句。
7、最后在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格中自动显示出数据了
- 相关评论
- 我要评论
-
