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

  1. 首頁 > 云知道 > >

怎么在excel中制作表格 怎么在excel中做圖表

云知道


怎么在excel中制作表格 怎么在excel中做圖表


【分享成果，隨喜正能量】這個世界上，最讓人不想接觸的，就是沒有能力卻同時有著大量情緒的人 。VBA可以提高你的能力，學習可以磨礪你的情緒 。
《VBA信息獲取與處理》教程是我推出第六套教程，目前已經(jīng)是第一版修訂了 。這套教程定位于最高級，是學完初級，中級后的教程 。
信息，含義非常之廣泛，是我們日常生活不可或缺的一部分 。從天氣情況和預報，到人際關系，宇宙洪荒，都是信息的組成部分 。信息在某種程度上就是數(shù)據(jù)，或者可以用數(shù)據(jù)來體現(xiàn)，獲得信息也就是數(shù)據(jù)的獲得 。這部教程給大家講解的內容有：跨應用程序信息獲得、隨機信息的利用、電子郵件的發(fā)送、VBA互聯(lián)網(wǎng)數(shù)據(jù)抓取、VBA延時操作，剪切板應用、Split函數(shù)擴展、工作表信息與其他應用交互，F(xiàn)SO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內容 。程序文件通過32位和64位兩種OFFICE系統(tǒng)測試 。是非常抽象的，更具研究的價值 。
這套教程共兩冊，八十四講，今后一段時間會給大家陸續(xù)推出修訂后的教程內容 。今日的內容是第4講：在EXCEL中操作WORD應用程序
第四節(jié) 在EXCEL中打開及修改WORD文件
在上面的專題中，我們講了如何在WORD中打開EXCEL 。那么同理，如何在EXCEL中打開WORD呢？在這講中我給出專題的講解，這個講解中我們將利用CreateObject函數(shù)和GetObject 函數(shù)分別建立一個引用及獲取已經(jīng)打開的WORD文件信息 。這講的內容為了增加實用性，我在程序中還給出了如何向WORD的表格（非嵌套）中添加數(shù)據(jù)，這個數(shù)據(jù)來源于EXCEL 。
1 EXCEL中判斷一個WORD文件是否被打開
在EXCEL中判斷WORD文件是否被打開，我們可以利用GetObject 函數(shù)獲取一個WORD主程序的返回情況 。這里我利用一個WordIsOpen的函數(shù)過程 。代碼如下：
Function WordIsOpen(ByVal strDocName As String) As Boolean
'判斷Word文檔是否被重復打開
Dim myWd As Object
WordIsOpen = False
Set myWd = Nothing
On Error Resume Next
strDocName = UCase(strDocName)
'判斷是否有Word程序被打開
Set myWd = GetObject(, "WORD.Application")
For Each doc In myWd.Documents
UU = UCase(doc.FullName)
If UU = strDocName Then
WordIsOpen = True
Exit For
End If
Next
Set myWd = Nothing
End Function
代碼截圖：
代碼講解：這是一個函數(shù)過程，需要輸入一個strDocName的字符串，用于我們核對是否打開那個文件的文件名，然后我們利用Set myWd = GetObject(, "WORD.Application")語句捕獲是否有word打開的主程序，如果有，我們將提取每個文件的文件名，用于我們的判斷 。下面看具體的講解：
① WordIsOpen = False 首先令WordIsOpen初始值為FALSE
② On Error Resume Next 是建立一個錯誤處理語句，這個語句是當沒有word文件打開時以便對后續(xù)錯誤進行處理
③ For Each doc In myWd.Documents
UU = UCase(doc.FullName)
If UU = strDocName Then
WordIsOpen = True
Exit For
End If
Next
上述語句是一個遍歷的循環(huán)，如果打開的文件中含有名稱為給出的文件名的文件，那么返回的將是WordIsOpen = True 。
2 主程序及修改WORD中的表格數(shù)據(jù)的方案
在中主程序中我們將利用WordIsOpen函數(shù)對我們需要判斷的文件進行判斷，如果沒有打開，那么執(zhí)行打開操作，再進行修改；如果已經(jīng)打開，那么執(zhí)行修改操作 。
代碼如下：
Sub MYNZB()
Dim RR As Boolean
Dim myWdA As Object
Dim MyDocument As Object

推薦閱讀