EXCEL貼入網頁問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » EXCEL貼入網頁問題

返回列表下一主題上一主題發帖

EXCEL貼入網頁問題

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-12-6 16:16 | 顯示全部帖子

回復 1# die78325
試試看

Option Explicit
Sub Ex()
Dim R, 字串 As String, S As String
For Each R In [A1:H10].Rows
S = Join(Application.Transpose(Application.Transpose(R)), " ")
字串 = IIf(字串 = "", S, 字串 & Chr(10) & S)
Next
'
'
' With .Document
' .getElementsByName("q11")(0).Value = 字串 ' 找到q11欄位填入
'End With
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-12-7 13:15 | 顯示全部帖子

回復 4# die78325
試試看

Option Explicit
Sub Ex()
Dim Ar(), 字串 As String, xi As Integer, xii As Integer, S As String, Rng As Range
'With Range("A1").CurrentRegion
'CurrentRegion 屬性傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍。唯讀
'MsgBox .Address
Set Rng = Sheet1.[a1]
With Sheet1.Range(Rng.Address, Cells(Rng.End(xlDown).Row, Rng.End(xlToRight).Column).Address)
MsgBox .Address(, , , 1, 1)
Ar = .Value
For xi = 1 To .Rows.Count
For xii = 1 To .Columns.Count
Ar(xi, xii) = IIf(.Cells(xi, xii) <> "", .Cells(xi, xii).Text, vbTab)
Next
Next
For xi = 1 To UBound(Ar)
S = Join(Application.Transpose(Application.Transpose(Application.Index(Ar, xi))), vbTab)
字串 = IIf(字串 = "", S & vbLf, 字串 & vbLf & S)
Next
MsgBox 字串
End With
' '
'
' With .Document
' .getElementsByName("q11")(0).Value = 字串 ' 找到q11欄位填入
'End With
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-12-7 13:51 | 顯示全部帖子

回復 6# die78325
這些並不難,不了解的可多看VBA的說明

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-12-10 15:31 | 顯示全部帖子

回復 8# die78325
DataObject 物件
在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以暫存和儲存在 DataObject 的文字片段相關的格式。

Option Explicit
Sub Ex() '使用DataObject 物件
Dim Rng As Range
'Dim Clip As New DataObject
' New DataObject: VBA需設定引用 Microsoft Forms 2.0 Object Library
Dim Clip As Object '不需設定引用 Microsoft Forms 2.0 Object Library
Set Clip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Set Rng = Sheet1.[a1]
Sheet1.Range(Rng.Address, Cells(Rng.End(xlDown).Row, Rng.End(xlToRight).Column).Address).Copy
Clip.GetFromClipboard
'
'
With .Document
.getElementsByName("q11")(0).Value = Clip.GetText(1) ' 找到q11欄位填入
End With
End Sub

複製代碼

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

返回列表下一主題上一主題