返回列表 上一主題 發帖

word的vba, 要怎麼改轉到excel後的字型及格式

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-28 21:37 | 顯示全部帖子

word的vba, 要怎麼改轉到excel後的字型及格式

請問一下,以下為word的vba, 要怎麼改轉到excel後的字型及格式(格線,置中等....)
Sub test()
    Dim xlWkApp As Object, xlWk As Object
    Set xlWkApp = CreateObject("excel.application")
    With xlWkApp
        .Visible = True
        Set xlWk = .Workbooks.Add
        xlWk.Sheets(1).Range("a1") = ThisDocument.Tables(2).Cell(2, 6)
        xlWk.Sheets(1).Range("a2") = ThisDocument.Tables(2).Cell(5, 6)
        End With
End Sub
收藏 分享
初學者color

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
2#
發表於 2010-10-29 15:43 | 顯示全部帖子
回復 2# et5323


    喔~原來如此,之前都用錄製再貼過來都不能用,又學到了~感恩^^
初學者color

TOP

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
3#
發表於 2010-11-1 11:44 | 顯示全部帖子
另外再問一個問題,為什麼轉成EXCEL後不能進行運算? 會出現#VALUE!
是因為轉完是文字嗎?可是在格式部份改成數值也無法運算,為什麼?謝謝~
初學者color

TOP

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
4#
發表於 2010-11-1 20:54 | 顯示全部帖子
真的可行耶~謝謝et5323  ^^
1.不過兩個程式為什麼有這樣的差別?
2.這一段的用意是?不懂
Function myCell(s)
    Dim tmp
    tmp = Replace(s, Chr(13), "")
    tmp = Replace(tmp, Chr(7), "")
    tmp = Replace(tmp, Chr(32), "")
    myCell = tmp
End Function
初學者color

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題