vba命令

❶ VBA 關於CALL命令使用的問題

多了個對象

Call VBACode.MOR

改成

Call MOR

PrivateSubCommandButton1_Click()
Dimf$
zz=CreateObject("WScript.Shell").SpecialFolders("Desktop")
f=ThisWorkbook.Path&"物料匯總1.xlsx"
IfDir(f)=""Then
MsgBox"沒有找到文件名為「1」的表格"
ExitSub
Else
Workbooks.OpenFilename:=zz&"物料匯總1.xlsx"
Callmor
ActiveWorkbook.Close
EndIf
EndSubSubmor()
MsgBox"合並"
EndSub

❷ excel中vba如何執行列印命令

activeworkbook.printout

❸ EXCEL 表格VBA命令

最好的方法就是在模版文件的打開事件中寫入代碼，先自動將某個固定的單元格內容加1，然後另存為到你指定的文件夾中，代碼很簡單：
Private Sub Workbook_Open()
With ThisWorkbook
.Sheets(1).[a1].Value = Sheets(1).[a1].Value + 1'單元格數據增加1
.Save'保存
.Sheets(1).[a1].ClearContents'清除a1單元格內容
.SaveAs "c:\" & ThisWorkbook.Name'另存為到指定路徑下
End With
End Sub

❹ EXCEL VBA 某命令詳解

創建一個對象，該對象代表保存在網頁上的文檔中的項目。當對 Microsoft Excel 中的文檔進行了一些自動修訂時，這些對象可幫助隨後對網頁進行的更新。返回 PublishObject 對象。

PublishObject.Add(SourceType, Filename, Sheet, Source, HtmlType, DivID, Title)

SourceType XlSourceType 類型，必需。源的類型XlSourceType 可為以下 XlSourceType 常量之一。表示源對象。
xlSourceAutoFilter 自動篩選區域。
xlSourceChart 圖表。
xlSourcePivotTable 數據透視表。
xlSourcePrintArea 選定要列印的單元格區域。
xlSourceQuery 查詢表（外部數據區域）。
xlSourceRange 單元格區域。
xlSourceSheet 整張工作表。
xlSourceWorkbook 工作簿。

Filename String 類型，必需。用於保存源對象的 URL（在 Intranet 或網站上）或路徑（本地或網路上）。

Sheet Variant 類型，可選。保存為網頁的工作表名稱。

Source Variant 類型，可選。是用來標識數據項的唯一名稱，而這些數據項的 SourceType 參數為下列常量之一：xlSourceAutoFilter、xlSourceChart、xlSourcePivotTable、xlSourcePrintArea、xlSourceQuery 或 xlSourceRange。如果 SourceType 為 xlSourceRange，則 Source 指定的是一個區域，該區域可以是一個已定義的名稱。如果 SourceType 為 xlSourceChart、xlSourcePivotTable 或 xlSourceQuery，則 Source 指定的是圖表、數據透視表或查詢表的名稱。

HtmlType Variant 類型，可選。用於指定數據項是保存為某個互動式的 Microsoft Office Web Component 還是靜態文本和圖像。可為下表所列的 XlHTMLType 常量之一。

常量 說明
xlSourceAutoFilter 「自動篩選」區域
xlSourceChart 圖表
xlSourcePivotTable 數據透視表
xlSourcePrintArea 選定的用於列印的單元格區域
xlSourceQuery 查詢表（外部數據區域）
xlSourceRange 單元格區域
xlSourceSheet 整張工作表

ChDir 語句------改變當前的目錄或文件夾

❺ excel中vba搜索命令

將表格發過來並附上詳細要求。注意：是詳細要求，不是像這樣的三言兩語，不要對自己的描述能力太自信！

❻ 在excel中，用vba代碼在工作表中新建5個命令按鈕,並分別命名為:按鈕1～按

Sub宏1()
Dimi
Fori=1To5
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1",Link:=False_
,DisplayAsIcon:=False,Left:=15,Top:=25*i,Width:=180,Height:=_
20).Object.Caption="按鈕"&i
Nexti
EndSub

程序代碼：

❼ 關於excel中命令按鈕(VBA)

按照你的意思，

就不應該做在sheet上，

而應該使用ToolBar，

ToolBar是可以漂浮在窗口上的，

不隨sheet變化而變化，

甚至刪除sheet都沒有問題。

SubMy_Bar_Set()
DimmyBarAsCommandBar
DimmyBtmAsCommandBarButton
'建立新"Bar1"工具欄
SetmyBar=CommandBars.Add("bar1",msoBarFloating)
SetmyBtm=CommandBars("Bar1").Controls.Add(Type:=msoControlButton)

'設置"Bar1"工具欄
WithApplication.CommandBars("Bar1").Controls(1)
.OnAction="My_menu"'My_menu是一個sub，裡面是單擊按鈕後要執行的程序
.Caption="asd"
.Height=12
.Width=51
.Visible=True
.Enabled=True
EndWith

'根據顯示器解析度設置"Bar1"位置
DimHAsLong
DimVAsLong
H=800'我的顯示器設為800*600，你可以根據你的解析度填寫
V=600
WithApplication.CommandBars("Bar1")
.Top=V/2
.Left=H-80
.Visible=True
EndWith


EndSub

SubMy_menu()
ActiveCell.Value=1234'此處為隨意寫了一句，這段程序是設置在工作簿open時自動運行的，原程序是調用一個窗口，然後進行選擇操作
EndSub

❽ 關於VBA命令按鈕

以下先看效果：

按鈕代碼如下，親自寫測無問題，歡迎指正。

Private Sub CommandButton1_Click()

With Label1 '設置標簽

.Caption = "肩負時代責任，履行青年擔當" '設置標題

.ForeColor = &HFF& '設置字體為紅色

.BackColor = &HFF0000 '設置背景為藍色

.Font.Size = 32 '設置字體大小

.Font.Name = "華文行楷" '設置字體名稱

End With

End Sub

❾ vba 調用dos命令

試試看下面的VBA代碼是否你需要的：

OptionExplicit

SubYgB()
DimWSH,wExec,sCmdAsString,ResultAsString
SetWSH=CreateObject("WScript.Shell")
SetwExec=WSH.Exec("ping127.0.0.1")
Result=wExec.StdOut.ReadAll
MsgBoxResult
SetwExec=Nothing
SetWSH=Nothing
EndSub

❿ 如何在批處理命令行中調用excel 宏（VBA）

如果是 word 文件，可以先建立一個快捷方式，快捷方式的目標這樣寫：
"C:Program FilesMicrosoft OfficeOffice14WINWORD.EXE" C:...產品報告.docm /mShowMainForm
ShowMainForm是thisDocument中的sub,也就是宏名稱

這時雙擊快捷方式就會 自動打開這個產品報告.docm 並且執行ShowMainForm中邏輯；
這時再寫批處理文件 直接打開這個 快捷方式文件就行了