vba如何增加工作簿
❶ 如何用VBA快速的合并多个工作簿成为一个工作簿
用一个VBA就可以实现的。
使用方法：
1、新建一个工作薄，将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键，选择“查看代码”。
4、在打开的VBA编辑窗口中粘贴以下代码：
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
5、关闭VBA编辑窗口。
6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。
7、在打开的对话窗口中，选择你要合并的300个工作薄。
8、等待。。。。ok！
❷ Excel VBA 怎么创建工作簿
我写了这段代码可行！对于重复的非法的都能自动忽略。
Sub CreatMySheets()
Dim m As Range, str As String, created As Boolean
On Error GoTo ErrorHandler
For Each m In Range([A1], Cells(Cells.SpecialCells(xlLastCell).Row(), 1))
str = m.Text
If str <> "" Then
If Not created Then
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
End If
created = False
ActiveSheet.Name = str
End If
Next m
On Error GoTo 0
Set m = Nothing
Application.DisplayAlerts = False
If created Then ActiveSheet.Delete
Application.DisplayAlerts = True
Exit Sub
ErrorHandler:
created = True
Resume Next
End Sub
有疑问，请Hi我或给我发网络消息
GoodLuck!
❸ VBA，如何新建工作簿并命名
参考代来码如下源：
Sub test()
Dim iFile As String
iFile = ThisWorkbook.Path & "\" & "命名.xls"
Workbooks.Add
ActiveWorkbook.SaveAs iFile, True
MsgBox "新建Excel工作薄完成," & vbCrLf & "完整路径及名称:" & vbCrLf & iFile
End Sub
❹ excel vba怎么建立新工作表
1，建立新表格式如下
subaa
sheets.add
endsub
2，可以在建立新表的时候同时对表命名
subaa
sheets.add.name="我是新表"
endsub
❺ VBA如何操作新建的工作簿
你是咋个新建的，用activeworkbook 这种不好控制，最好把添加工作簿赋值给一个对象变量。我弄了段内添加工作簿代码容，你参考一下。
OptionExplicit
Subwb_add()
DimwbAsWorkbook
Setwb=Application.Workbooks.Add
Withwb.Sheets(1)
.Name="test"
.Range("a1:e1")=Array(1,2,3,4,5,6)
.Columns("a:e").AutoFit'根据内容调整列宽
EndWith
wb.SaveAs"e: est.xlsx"
wb.CloseFalse
Setwb=Nothing
EndSub
❻ 如何在vba自动生成工作簿中插入模块
在工具——宏——vba编辑器里
1、插入一个窗体UserForm1，添加两个标签、两个文版本框、两个命令按钮，输入如下权代码：
Private Sub CommandButton1_Click()
If Val(TextBox1) <= 0 Or Val(TextBox2) <= 0 Then
MsgBox "输入错"
Exit Sub
End If
Cells(1, 1) = "学生序号"
For i = 1 To TextBox1.Text
Cells(i + 1, 1) = "s" & i
Next i
For i = 1 To TextBox2.Text
Cells(1, i + 1) = "p" & i
Next i
Me.Hide
End Sub
Private Sub CommandButton2_Click()
Me.Hide
End Sub
2、插入一个模块输入如下代码
Sub getps()
UserForm1.Show
End Sub
3、在工具栏上点右键，选自定义；在命令标签里找到宏，把自定义按钮拖动到工具栏中
4、点自定义的按钮，指定宏
❼ 怎样用VBA新建一个工作表
Sub 创建新表()
Nms = "汇总表"
For i = 1 To Sheets.Count
If Sheets(i).Name = Nms Then
Dim Msg, Style, Title, Help, Ctxt, Response
Msg = Nms & "工作表已经存在，是否删除原工作表？" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "分科表复制信息" ' 定义标题。
'Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
'本示例删除活动工作簿的 Sheet3 工作表，并且不显示确认对话框。
Application.DisplayAlerts = False
Sheets(Nms).Delete 'MyString = "Yes" ' 完成某操作。
Application.DisplayAlerts = True
Exit For
Else ' 用户按下“否”。
Sheets(Sheets.Count).Name = Nms & str(Sheets.Count + 1) ' 完成某操作。
End If
Exit Sub
End If
Next i
❽ VBA如何实现移动工作簿、复制工作簿、删除工作簿。
新建一个文件夹,新建4个工作薄,名字分别是:表1.xls,表2.xls,表3.xls,代码.xls.然后在这个文件夹下面再新建一个回文件夹名字为:移动到答的文件夹.
打开代码.xls 粘贴以下代码到代码.xls 工作薄的VBA窗口.分别执行代码过程
Sub 复制表1()
FileCopy ThisWorkbook.Path & "/表1.XLS", ThisWorkbook.Path & "\移动到的文件夹\表1.XLS"
End Sub
Sub 移动表2()
FileCopy ThisWorkbook.Path & "/表2.XLS", ThisWorkbook.Path & "\移动到的文件夹\表2.XLS"
Kill ThisWorkbook.Path & "\表2.XLS"
End Sub
Sub 删除表3()
Kill ThisWorkbook.Path & "\表3.XLS"
End Sub
❾ 请问在excel中,vba如何在用户窗体中增加一个工作表
1、ALT + F11
2、工具——附加控件 勾选 Microsot Listciew Control,version 6.0
3、在工具箱窗体上点击刚才附加的Listview控件，在的设计窗体按需要画出版表格大小
4、双击Listview1,根据权需要写入代码
❿ excel VBA怎么新建工作簿，并命名新建的工作簿
通过记录宏的方式得到下面这个代码。
Sub Macro1()
' Macro1 Macro
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\Think\Documents\myfile.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
注：要学习vba编程，这个内记录宏功能要好容好利用。