excel中如何通过VBA打开word文件和ppt文件excel2007vba怎么打开
一、打开word文件代码:Set wo = CreateObject(\"Word.Application\")wo.Documents.Open ThisWorkbook.Path & \"\\流程.doc\"
wo.Visible = True
二、打开ppt文件代码:方法1:
Set wo = CreateObject(\"Powerpoint.Application\")
wo.Visible = True
wo.Presentations.Open ThisWorkbook.Path & filename
绛旓細涓銆鎵撳紑word鏂囦欢浠g爜锛歋et wo = CreateObject(\"Word.Application\")wo.Documents.Open ThisWorkbook.Path & \"\\娴佺▼.doc\"wo.Visible = True 浜屻佹墦寮ppt鏂囦欢浠g爜锛氭柟娉1锛歋et wo = CreateObject(\"Powerpoint.Application\")wo.Visible = True wo.Presentations.Open ThisWorkbook.Path & filename...
绛旓細1銆侀鍏堟垜浠鎵撳紑涓涓伐浣滄牱琛ㄤ綔涓轰緥瀛愩2銆佹垜浠娇鐢╝lt+f11缁勫悎蹇嵎閿繘鍏be缂栬緫鍣紝鎻掑叆涓涓柊鐨妯″潡锛屽苟鍦ㄦā鍧椾腑杈撳叆浠ヤ笅浠g爜锛歋ub openWorkbook1()Workbooks.Open 闇鎵撳紑鏂囦欢鐨勮矾寰刓鏂囦欢鍚 End Sub 3銆佺湅浠g爜鍐欑殑寰堟槑鐧戒簡锛屾瘮濡傛垜瑕佹墦寮妗岄潰涓婄殑涓涓伐浣滆杽锛岄偅涔堟垜浠氨鏄緭鍏ユ枃浠剁殑璺緞锛屾煡鎵捐矾寰...
绛旓細濡傛灉鎮ㄥ綍鍒朵竴涓畯骞鐢鈥淎uto_Open鈥濊繖涓鍚嶇О淇濆瓨瀹冿紝姣忔鎮鎵撳紑鍖呭惈姝ゅ畯鐨宸ヤ綔绨挎椂锛屽畠閮戒細杩愯銆傚彟涓绉嶅湪鎵撳紑宸ヤ綔绨挎椂鑷姩杩愯瀹忕殑鏂规硶鏄娇鐢 Visual Basic 缂栬緫鍣ㄥ湪宸ヤ綔绨跨殑 Open 浜嬩欢涓紪鍐 Microsoft Visual Basic for Applicat...
绛旓細1.鎸堿lt+F11锛屾墦寮VBA缂栬緫鍣銆2.濡傛灉浠呰绂佺敤鏌愪釜宸ヤ綔琛ㄧ殑鍗曞厓鏍兼嫋鏀惧姛鑳斤紝鍙互鍦ㄢ滃伐绋嬧濈獥鍙d腑鍙屽嚮鏌愪釜宸ヤ綔琛紝鍦ㄤ唬鐮佺獥鍙d腑杈撳叆涓嬪垪浠g爜锛歅rivate Sub Worksheet_Activate()Application.CellDragAndDrop = False End Sub Private Sub Worksheet_Deactivate()Application.CellDragAndDrop = True End Sub 杩欐牱...
绛旓細鏂规硶1锛Set wo = CreateObject("Powerpoint.Application")wo.Visible = Truewo.Presentations.Open ThisWorkbook.Path & filename鏂规硶2锛歋ub dd()Dim filepath$, filename$filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)Shell "POWERPNT.EXE " & filepathEnd Sub闄勶細鍙屽嚮鎵撳紑PPS...
绛旓細鐐归夊埌浣犲瓨鏀炬枃浠鐨閭d釜Set myFolder = FSO.GetFolder(.InitialFileName)Set myFiles = myFolder.FilesFor Each oFile In myFilesstrName = UCase(oFile.Name)strName = VBA.Right(strName, 3)If strName = "xls" Or strName = "XLS" Then '杩欐槸鎵╁睍鍚嶉夋嫨'涓嬮潰灏卞彲鎺ョ潃鍐鎵撳紑鏂囦欢璇诲彇...
绛旓細鍦‥Xcel鐨VB缂栬緫鍣ㄤ腑鎻掑叆涓涓ā鍧楋紝杈撳叆濡備笅浠g爜璇曡瘯鐪嬨係ub ExcelToWord()Dim WordObject As Object '澹版槑涓涓璞″彉閲忥紝杩欓噷鍗冲皢澹版槑涓篧ord瀵硅薄 On Error Resume Next Set WordObject = CreateObject("Word.Application") '鐢╯et鏉ュ垱寤篧ord瀵硅薄锛岃繖閲屾槸杩愯Word绋嬪簭锛屼絾鏈柊寤烘枃妗 WordObject.Visible =...
绛旓細鍏堝畾涔夎矾寰刓x0d\x0a1.褰撳墠璺緞锛歕x0d\x0apath = Application.ThisWorkbook.path\x0d\x0a鐒跺悗锛鎵撳紑鏃讹紝鍔犲叆鍏朵綑璺緞锛屽拰鏂囦欢鍚嶃俓x0d\x0aWorkbooks.Open filename:= _\x0d\x0a path & "\model\" & "book1.xls", Notify:=False \x0d\x0a2.鍚岀骇鍒枃浠跺す璺緞锛歕x0d\x0a...
绛旓細If wb Is Nothing Then MsgBox ("鏂囦欢鎵撳紑澶辫触,璇锋鏌" & pth & fn & "鏄惁瀛樺湪!"): Exit Sub '鍦ㄦ娣诲姞鎿嶄綔浠g爜 wb.Close True '濡傛灉鏃犻渶淇濆瓨,鏈弬鏁扮敤falseEnd Sub shihoumacili | 鍙戝竷浜2016-01-30 涓炬姤| 璇勮 0 14 浣犻兘鐢╒BA浜,鎬庝箞杩橀棶杩欎箞绉嶉棶棰樺晩銆傘傘倀hisworkbook.path灏辨槸A鏂囦欢澶...
绛旓細1銆侀鍏鎵撳紑EXECL琛ㄦ牸锛岀劧鍚庡湪宸ヤ綔琛ㄤ腑锛岀偣鍑昏彍鍗曟爮銆愬紑鍙戝伐鍏枫戙2銆佸湪鍏跺伐鍏锋爮鍐咃紝鐐瑰嚮銆恦isual basic銆戙3銆佷細杩涘叆VBA缂栬緫鐣岄潰锛佺偣鍑昏彍鍗曟爮銆愭彃鍏ャ戯紝鍦ㄥ叾涓嬫媺鑿滃崟涓紝閫夋嫨銆愭ā鍧椼戙4銆佷細寮瑰嚭妯″潡缂栬緫绐楀彛锛屽湪妯″潡绐楀彛杈撳叆浠ヤ笅浠g爜銆5銆佺劧鍚庣偣鎸夐敭鐩樹笂鐨F8锛屼竴姝ユ杩愯缂栧啓鐨勪唬鐮併6銆佹渶鍚庣湅鍒扳...