从品牌网站建设到网络营销策划,从策略到执行的一站式服务
选择客户姓名时
创新互联是一家专业提供江津企业网站建设,专注与网站设计制作、网站制作、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文件,然后作为资源放在程序中,先释放这个文件,然后操作这个文件。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图