日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁 > 云知道 > >

怎么在excel中制作表格 怎么在excel中做圖表( 二 )

云知道


RR = WordIsOpen(ThisWorkbook.Path & "\\001 在WORD中激活EXCEL.docm")
If Not RR Then '創(chuàng)建Word對象
Set myWdA = CreateObject("Word.Application")
myWdA.Visible = True '打開指定文檔
Set MyDocument = myWdA.Documents.Open(ThisWorkbook.Path & "\\001 在WORD中激活EXCEL.docm")
'獲取當(dāng)前Excel的SHEET2的單元格C2數(shù)據(jù)
mystr = ThisWorkbook.Sheets(2).Cells(2, 3).Value
'將取得得值設(shè)定到Word表格的1行2列中
MyDocument.Tables(1).Cell(2, 3).Range.Text = mystr
MyDocument.Save
Set myWdA = Nothing
Set MyDocument = Nothing
Else
Set myWdA = GetObject(, "WORD.Application")
For Each doc In myWdA.Documents
UU = UCase(doc.FullName)
If doc.FullName = ThisWorkbook.Path & "\\001 在WORD中激活EXCEL.docm" Then
mystr = ThisWorkbook.Sheets(2).Cells(2, 3).Value
'將取得得值設(shè)定到Word表格的1行2列中
doc.Tables(1).Cell(2, 3).Range.Text = mystr
doc.Save
Set doc = Nothing
Exit For
End If
Next
Set myWdA = Nothing
End If
End Sub
代碼截圖：
代碼解讀：上述代碼先利用WordIsOpen函數(shù)判斷"001 在WORD中激活EXCEL.docm"是否已經(jīng)打開，如果沒有打開，那么利用CreateObject函數(shù)建立引用，然后打開這個文件，打開后修正文件文件，如果已經(jīng)打開了文件，那么首先定位到打開的文件，然后在修正 。下面看代碼的重點講解：
① If Not RR Then '創(chuàng)建Word對象
Set myWdA = CreateObject("Word.Application")
myWdA.Visible = True '打開指定文檔
Set MyDocument = myWdA.Documents.Open(ThisWorkbook.Path & "\\001 在WORD中激活EXCEL.docm")
'獲取當(dāng)前Excel的SHEET2的單元格C2數(shù)據(jù)
mystr = ThisWorkbook.Sheets(2).Cells(2, 3).Value
'將取得得值設(shè)定到Word表格的1行2列中
MyDocument.Tables(1).Cell(2, 3).Range.Text = mystr
MyDocument.Save
Set myWdA = Nothing
Set MyDocument = Nothing
上述代碼是打開文件及修正文件的代碼 。
② Set myWdA = GetObject(, "WORD.Application")
For Each doc In myWdA.Documents
UU = UCase(doc.FullName)
If doc.FullName = ThisWorkbook.Path & "\\001 在WORD中激活EXCEL.docm" Then
mystr = ThisWorkbook.Sheets(2).Cells(2, 3).Value
'將取得的值設(shè)定到Word表格的1行2列中
doc.Tables(1).Cell(2, 3).Range.Text = mystr
doc.Save
Set doc = Nothing
Exit For
End If
Next
Set myWdA = Nothing
上述代碼是當(dāng)文件已經(jīng)打開，定位所給出的文件，然后修訂文件的代碼 。
③ 上述文件修訂的代碼，我給出的比較簡單，大家在實際利用的時候可以發(fā)揮使用 。
本節(jié)知識點回向：如何利用CreateObject函數(shù)和GetObject 函數(shù)來判斷一個給定的文件是否打開？當(dāng)已經(jīng)得到文件已經(jīng)打開時如何定位到這個文件？以上兩個問題就是本節(jié)要講解的主要問題，其中的代碼完全可以用作通用代碼來對待 。
備注：本節(jié)代碼參考文件“001 工作表.xlsm”
我20多年的VBA實踐經(jīng)驗，全部濃縮在下面的各個教程中，教程學(xué)習(xí)順序：
① 7→1→3→2→6→5或者7→4→3→2→6→5 。
② 7→8
各套教程內(nèi)容簡介:
第7套教程（共三冊）：《VBA之EXCEL應(yīng)用》：是對VBA基本的講解
第1套教程（共三冊）：《VBA代碼解決方案》：是入門后的提高教程
第4套教程（16G）：VBA代碼解決方案之視頻（第一套的視頻講解）
第3套教程（共兩冊）：《VBA數(shù)組與字典解決方案》：是對數(shù)組和字典的專題講解
第2套教程（共兩冊）：《VBA數(shù)據(jù)庫解決方案》：是對數(shù)據(jù)庫的專題講解

推薦閱讀