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中逻辑；
这时再写批处理文件 直接打开这个 快捷方式文件就行了