GBKEE

¦^´_ 1# dechiuan999
§Ú WORD ªºVBA ¤£¤Ó¼ô, ¸Õ¸Õ¬Ý½Æ»s¨ìExcel ¦b¥h³B²z

1. Sub ¥¨¶°2()
   
2.      Application.ActiveDocument.Range.Copy
   
3.      Word_vba
   
4. End Sub
   
5. Sub Word_vba()
   
6.     Dim xlWkApp As Object, xlWk As Object
   
7.     Set xlWkApp = CreateObject("excel.application")
   
8.     Application.DisplayAlerts = False                 'Ãö³¬¨t²Îªº¸ß°Ýµøµ¡
   
9.     With xlWkApp
   
10.         .Visible = True
    
11.         Set xlWk = .workbooks.Open(FileName:="d:\¸Õºâªí\Book3.xls", Password:="1234", IgnoreReadOnlyRecommended:=False)
    
12.        ' xlWk.Sheets(1).Range("c3") = ActiveDocument.Tables(1).Cell(1, 1)
    
13.         xlWk.Sheets(1).Paste
    
14.         xlWk.Close False
    
15.     End With
    
16.     xlWkApp.Quit
    
17.     Set xlWkApp = Nothing
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# dechiuan999
¨â¤å¥óªº®æ¦¡¤£¬Û¦P¬O«Ü¶Ë¸£ªº §ÚºCºC¸Õ¸Õ¬Ý¬O§_¦³¸Ñ,
¥B¦³Áٽаª¤â¬Ý¬Ý

GBKEE

¦^´_ 4# dechiuan999
WORDÀÉ¡A¤p§Ì·|¥ý±N¨äÂন,TXTÀɦA§Q¥ÎWORKBOOKS.OPENTEXT FILENAME,§Q¥Î¸ê®Æ­åªR¤è¦¡¨ú¥X¸ê®Æ¡C
§ï¥Î OpenTextFile  ¶}±Ò TXTÀÉ ¸Õ¸Õ¬Ý

WORDÀɸê®Æ¦ì²¾.rar (22.19 KB)

¤U¸ü¦¸¼Æ: 8

2012-6-25 14:45

1. Private Sub UserForm_Initialize()
   
2.     xPath = "D:\"          '  ³o¸Ì½Ð­×§ï¬°«ü©wªº¥Ø¿ý
   
3.     Set mSh = ThisWorkbook.Sheets("IV")
   
4.     mSh.Cells.Clear
   
5.     CommandButton2.Enabled = False
   
6.     CommandButton3.Enabled = False
   
7.     CommandButton4.Enabled = False
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# dechiuan999
·í§Ú¥i¥HÀ°§A¸ÑÃD®É, §A·P¨ü¨ººØ³ß®®ªº·Pı,§Ú¤]¬O·P¦P¨­¨üªº