在EXCEL中用VBA操作WORD表格：怎样选择一个表格中除第一行以外的任意连续行(比如第2到4行)？ 在Excel中,怎么选定多个不连续区域?(除了按住ctrl键...
Excel VBA \u5982\u4f55\u67e5\u627e\u8868\u683c\u4e2d\u7b2c\u4e00\u884c\u4e3a\u6307\u5b9a\u540d\u79f0\u7684\u5217\u5e76\u590d\u5236\u8fd9\u5217\u9664\u7b2c\u4e00\u884c\u5916\u4ee5\u4e0b\u7684\u5185\u5bb9\uff1fSub AAA() Dim R1 As Range Dim R2 As Range Set R1 = Sheets("SHEET1").Rows(1).Find("\u6307\u5b9a\u540d\u79f0", , , xlWhole) If R1 Is Nothing Then MsgBox "\u627e\u4e0d\u5230 \u6307\u5b9a\u540d\u79f0": Exit Sub Set R2 = Sheets("sheet2").Rows(1).Find("\u76ee\u6807", , , xlWhole) If R2 Is Nothing Then MsgBox "\u627e\u4e0d\u5230 \u76ee\u6807": Exit Sub Sheets("sheet1").Range(R1.Offset(1), Sheets("sheet1").Cells(Rows.Count, R1.Column).End(3)).Copy R2.Offset(1)End Sub
1\u3001\u9996\u5148\u9009\u62e9\u9f20\u6807\u6253\u5f00\u7535\u8111\u4e2d\u7684excel\u8f6f\u4ef6\uff0c\u7136\u540e\u521b\u5efa\u4e00\u4e2a\u8868\u5355\u3002
2\u3001\u4f8b\u5982\u6211\u4eec\u9009\u62e9\u5355\u5143\u683c\u540e\uff0c\u4e4b\u540e\u6309shift+f8\u76f4\u63a5\u9009\u62e9\u5355\u5143\u683c\u3002
3\u3001\u770b\u4e0b\u56fe\u6548\u679c\uff0c\u5982\u679c\u4f60\u4e0d\u9009\u62e9\uff0c\u53ea\u9700\u6309\u4f4fshift+f8\u53d6\u6d88\u3002
4\u3001\u5728\u201c\u540d\u79f0\u201d\u6846\u4e2d\uff08\u5728\u7f16\u8f91\u680f\u7684\u5de6\u4fa7\uff09\uff0c\u8f93\u5165\uff1acells\uff0c\u4ee5\u9017\u53f7\u5206\u9694\uff0c\u6309Enter\uff0c\u6216\u8005\u60a8\u53ef\u4ee5\u9009\u62e9\u591a\u4e2a\u79bb\u6563\u5355\u5143\u683c\u3002
Dim wDoc As Word.Document
Dim TC%, R%, C%
set wDoc = wApp.Documents.Open("要打开的文件")
TC = wDoc.Tables.Count
R = '从哪里开始你自己定吧
C =
If TC = 0 Then wDoc.Close : Exit Sub
For i = 1 To TC
With wDoc.Tables(i)
wDoc.Range(.Cell(2, 1).Range.Start, .Cell(.Rows.Count, .Columns.Count).Range.End).Select
Selection.Copy
xlSheet.Cells(R, C).Select
xlSheet.PasteSpecial Format:="文本" '选择为文体方式粘贴
R = R + .Rows.Count '控制行的位置为下一次粘贴
End With
Next
你在Excel里改成CreateObject方法也可引用也可
大概代码是这样了,细节部分你自己加上去吧
如果想速度最好把Word运行时Show出来,运行完关了就可以
选择选择第2行至第4行：
Rows(2).Resize(5, 1).EntireRow.Select
选择A1到A4：
Range("A1:A4").Select
选择A1到B4：
Range("A1:B4").Select
绛旓細1.1 鎵撳紑excel vba 鐣岄潰1.2 閫変腑鍏朵腑鐨勪竴涓狹odule1.3 閫夋嫨鑿滃崟锛 Tools --> References鍦ㄦ墦寮鐨勫璇濇涓夋嫨绫讳技 \"Microsoft Word 14.0 Object Library\".1.4 鐐瑰嚮OK淇濆瓨閰嶇疆銆2.鎵撳紑鏂囨。 Set wordApplication = CreateObject(\"Word.Application\") wordApplication.Visible = False Dim hasOpen...
绛旓細1銆侀鍏堟墦寮EXECL琛ㄦ牸锛岀劧鍚庡湪宸ヤ綔琛ㄤ腑锛岀偣鍑昏彍鍗曟爮銆愬紑鍙戝伐鍏枫戙2銆佸湪鍏跺伐鍏锋爮鍐咃紝鐐瑰嚮銆恦isual basic銆銆3銆佷細杩涘叆VBA缂栬緫鐣岄潰锛佺偣鍑昏彍鍗曟爮銆愭彃鍏ャ戯紝鍦ㄥ叾涓嬫媺鑿滃崟涓紝閫夋嫨銆愭ā鍧椼戙4銆佷細寮瑰嚭妯″潡缂栬緫绐楀彛锛屽湪妯″潡绐楀彛杈撳叆浠ヤ笅浠ｇ爜銆5銆佺劧鍚庣偣鎸夐敭鐩樹笂鐨凢8锛屼竴姝ユ杩愯缂栧啓鐨勪唬鐮併6銆佹渶鍚庣湅鍒扳滈攢...
绛旓細涓銆佹墦寮word鏂囦欢浠ｇ爜锛歋et wo = CreateObject("Word.Application")\x0d\x0awo.Documents.Open ThisWorkbook.Path & "\娴佺▼.doc"\x0d\x0awo.Visible = True\x0d\x0a浜屻佹墦寮ppt鏂囦欢浠ｇ爜锛氭柟娉1锛歕x0d\x0aSet wo = CreateObject("Powerpoint.Application")\x0d\x0awo.Visible = True\x0...
绛旓細1.涓句釜渚嬪瓙锛岄鍏堟濊矾鍒嗘瀽锛氱洰鍓鍦‥xcel涓鏈変袱寮犺〃锛屼竴寮犺〃鏄師鏉ョ殑瀛﹀勾鎶ヨ〃(鍗斥滃師琛ㄢ濓紝鍚鐢熺殑鍚勭淇℃伅锛屽鍥1鎵绀)锛屼竴寮犺〃鏄幇鍦ㄧ殑瀛︾敓鑺卞悕鍐(鍗斥滄柊琛ㄢ濓紝鍙湁瀛︾敓鐨勫鍚嶅拰鎬у埆淇℃伅锛屽鍥2鎵绀)銆傚彧瑕佽兘灏嗏滃師琛ㄢ濅腑鐨勪俊鎭牴鎹滄柊琛ㄢ濅腑鐨勫鐢熷鍚嶅叧鑱斿埌鈥滄柊琛ㄢ濅腑锛屽氨鍙互瀹屾垚浠诲姟浜嗐...
绛旓細vba浣跨敤姝ラ1锛氶鍏堬紝鎴戣鐭ラ亾鍟嗗搧鐨勫崟浠锋槸12.5锛屽湪D1鍗曞厓鏍艰緭鍏ャ愬晢鍝佸崟浠枫戯紝鍦―2鍗曞厓鏍艰緭鍏12.5 excel涓娇鐢╲ba鍔熻兘鐨勬柟娉曞浘1 vba浣跨敤姝ラ2锛氭帴鐫鎴戜滑鎵撳紑vb鐣岄潰锛屽湪甯哥敤宸ュ叿鏍忎笂鎵ц锛氬紑鍙戝伐鍏封搗isual basic銆俥xcel涓娇鐢╲ba鍔熻兘鐨勬柟娉曞浘2 vba浣跨敤姝ラ3锛氭墦寮vb浠ュ悗锛屾垜浠鍏堝缓绔嬩竴涓ā鍧楋紝...
绛旓細棣栧厛鎴戜滑鎵撳紑涓涓伐浣滄牱琛ㄤ綔涓轰緥瀛愩傛寜涓媋lt+f11杩涘叆vba缂栬緫鍣紝骞舵柊寤轰竴涓ā鍧椾綔涓哄涔犵殑渚嬪瓙銆傛帴涓嬫潵鎴戜滑鎼缓妯″潡蹇呴』鐨勫噯澶囧伐浣滐紝瀵瑰彉閲忚繘琛屾樉鎬у０鏄庯紝骞舵柊寤轰竴涓ā鍧楀畾涔夈vba涓瀵圭▼搴鎿嶄綔鐨勬祦绋嬬殑鎺у埗浣跨敤if鍑芥暟杩涜鎺у埗銆鍦╡xcel涓涔熸湁if鍑芥暟鍏紡銆傚ぇ瀹跺彲浠ョ悊瑙ｆ剰涔夊悓鏍锋槸鈥滃鏋溾濓紝浣嗘槸vba涓殑if鍥犱负...
绛旓細1銆侀鍏堬紝鎵撳紑Excel锛屾寜涓嬪揩鎹烽敭鈥淎lt + F11鈥濊繘鍏BA缂栬緫鍣紝濡傚浘鎵绀恒2銆鍦╒BA鐣岄潰涓紝閫夋嫨椤堕儴鑿滃崟鐨勨滄彃鍏モ濋夐」锛岀劧鍚庨夋嫨鈥滄ā鍧椻濓紝濡傚浘鎵绀猴紝杩欏皢鍒涘缓涓涓柊鐨勪唬鐮佸尯鍩熴3銆佹帴涓嬫潵锛屽湪鏂板垱寤虹殑鈥滄ā鍧椻濅腑锛岃緭鍏ヤ互涓嬪熀纭浠ｇ爜锛vba Option Explicit Sub addwork()Sheets.Add After:=Sheets(...
绛旓細'棣栧厛瑕佸湪vba涓寮曠敤Microsoft Word 11.0 Object Library Dim Wdapp As Word.Application Dim WdDocument As Word.Document Dim UserFile As String Private Sub CommandButton1_Click()Set Wdapp = New Word.Application UserFile = Wdapp.Path & "\1.doc"Set WdDocument = Wdapp.Documents.Open(...
绛旓細鍏跺疄锛屼綘鐨勬枃妗ｇ敤EXCEL鍋氬氨琛屼簡锛岃鍦‥XCEL涓锛浣跨敤绠鍗曞叕寮忓氨鍙互瀹炵幇浣犵殑瑕佹眰銆
绛旓細Excel涓娇鐢╲ba鏉ュ畾鏃惰繍琛岀▼搴忕殑鎿嶄綔姝ラ濡備笅锛氶鍏堟垜浠墦寮涓涓伐浣滄牱琛ㄤ綔涓轰緥瀛愩備娇鐢╝lt+f11缁勫悎蹇嵎閿繘鍏be缂栬緫鍣紝鎻掑叆涓涓柊鐨勬ā鍧楋紝骞跺湪妯″潡涓緭鍏ヤ互涓嬩唬鐮侊細Sub myProcedure()MsgBox ("绁濅綘鐢熸棩蹇箰")End Sub 杩欎釜杩囩▼寰堢畝鍗曪紝灏辨槸鏄剧ず涓涓浣犵敓鏃ュ揩涔愮殑瀵硅瘽妗嗭紝浣嗘槸姝ｅ父鐨勯渶瑕佹縺娲昏繍琛岋紝浣嗘槸...
