新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
选择客户姓名时
创新互联是一家专业提供江津企业网站建设,专注与网站设计制作、网站制作、H5场景定制、小程序制作等业务。10年已为江津众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'在这里放入取数据库客户ID的代码,现把取得的值给订单号
End Sub
VB打开Excel:ShellExecute
hwnd,
"open",
"C:\1.xls",
vbNull,
vbNull,
1
在ThisWorkbook下建立Private
Sub
Workbook_Open()宏命令,则在每次打开这份Excel文档时就会自动运行该宏的代码。
这里安装没有VB ,不过你试一试下面的代码
Dim wdSel As Object
Set wdSel = objWordP.Selection
wdSel.Find.ClearFormatting
wdSel.Find.Replacement.ClearFormatting
With wdSel.Find
.Text = "aa" '要查找的内容
.Replacement.Text = "bb" '要替换的内容
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wdSel.Find.Execute , , , , , , , , , , wdReplaceAll
先创建一个模板excel文件,然后作为资源放在程序中,先释放这个文件,然后操作这个文件。