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編程，這個內記錄宏功能要好容好利用。