選擇客戶姓名時(shí)
創(chuàng)新互聯(lián)是一家專業(yè)提供江津企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作、H5場(chǎng)景定制、小程序制作等業(yè)務(wù)。10年已為江津眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進(jìn)行中。
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'在這里放入取數(shù)據(jù)庫客戶ID的代碼,現(xiàn)把取得的值給訂單號(hào)
End Sub
VB打開Excel:ShellExecute
hwnd,
"open",
"C:\1.xls",
vbNull,
vbNull,
1
在ThisWorkbook下建立Private
Sub
Workbook_Open()宏命令,則在每次打開這份Excel文檔時(shí)就會(huì)自動(dòng)運(yùn)行該宏的代碼。
這里安裝沒有VB ,不過你試一試下面的代碼
Dim wdSel As Object
Set wdSel = objWordP.Selection
wdSel.Find.ClearFormatting
wdSel.Find.Replacement.ClearFormatting
With wdSel.Find
.Text = "aa" '要查找的內(nèi)容
.Replacement.Text = "bb" '要替換的內(nèi)容
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wdSel.Find.Execute , , , , , , , , , , wdReplaceAll
先創(chuàng)建一個(gè)模板e(cuò)xcel文件,然后作為資源放在程序中,先釋放這個(gè)文件,然后操作這個(gè)文件。
網(wǎng)站題目:vb.net調(diào)用宏代碼 vba調(diào)用宏
鏈接地址:http://jinyejixie.com/article0/dosgioo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供商城網(wǎng)站、網(wǎng)頁設(shè)計(jì)公司、服務(wù)器托管、網(wǎng)站設(shè)計(jì)、ChatGPT、微信公眾號(hào)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)