word的vba, 要怎麼改轉到excel後的字型及格式
- 帖子
- 117
- 主題
- 34
- 精華
- 0
- 積分
- 155
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-8-29
|
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
|
|
|
|
|
- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
2#
發表於 2010-10-29 12:52
| 只看該作者
和在Excel里是一样的：
Sub test()
Dim xlWkApp As Object, xlWk As Object
Set xlWkApp = CreateObject("excel.application")
With xlWkApp
.Visible = True
With .Workbooks.Add.Sheets(1)
With .Range("a1")
.Value = ThisDocument.Tables(2).Cell(2, 6)
.Font.ColorIndex = 3
.HorizontalAlignment = 3
End With
.Range("a2") = ThisDocument.Tables(2).Cell(5, 6)
.Range("a1:a2").Borders.LineStyle = 1
End With
End With
End Sub |
|
|
|
|
|
|
|
- 帖子
- 117
- 主題
- 34
- 精華
- 0
- 積分
- 155
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-8-29
|
3#
發表於 2010-10-29 15:43
| 只看該作者
回復 2# et5323
喔~原來如此,之前都用錄製再貼過來都不能用,又學到了~感恩^^ |
|
|
初學者color
|
|
|
|
|
- 帖子
- 117
- 主題
- 34
- 精華
- 0
- 積分
- 155
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-8-29
|
4#
發表於 2010-11-1 11:44
| 只看該作者
另外再問一個問題,為什麼轉成EXCEL後不能進行運算? 會出現#VALUE!
是因為轉完是文字嗎?可是在格式部份改成數值也無法運算,為什麼?謝謝~ |
|
|
初學者color
|
|
|
|
|
- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
5#
發表於 2010-11-1 16:44
| 只看該作者
我的版本是Office2003,word表格里的内容输入到excel后,包含了一些非打印字符.我上次删的那个贴子对此进行了处理.
Function myCell(s)
Dim tmp
tmp = Replace(s, Chr(13), "")
tmp = Replace(tmp, Chr(7), "")
tmp = Replace(tmp, Chr(32), "")
myCell = tmp
End Function
Sub test()
Dim xlWkApp As Object, xlWk As Object
Set xlWkApp = CreateObject("excel.application")
With xlWkApp
.Visible = True
With .Workbooks.Add.Sheets(1)
With .Range("a1")
.Value = myCell(ThisDocument.Tables(2).Cell(2, 6))
.Font.ColorIndex = 3
.HorizontalAlignment = 3
End With
.Range("a2") = myCell(ThisDocument.Tables(2).Cell(5, 6))
.Range("a1:a2").Borders.LineStyle = 1
End With
End With
End Sub |
|
|
|
|
|
|
|
- 帖子
- 117
- 主題
- 34
- 精華
- 0
- 積分
- 155
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-8-29
|
6#
發表於 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
|
|
|
|
|
