Excel到WiKi宏

Question

我需要一個宏來將Excel電子表格轉換爲wiki格式並在wiki中發佈。

的樣本數據

Column-1 Column-2 Column-3 
A   Val1   Val1 
B   Val2   Val2 
C   Val3   Val3 

比方說，我們要轉換的表郵寄到啞：= https://wiki.com/w/Qc/MyPage

Answer 1

我設法制定以下代碼幾乎使得WikiSyntax。

選擇要轉換和運行宏的單元格區域。

Sub SelectionToWiki() 
PadConst = "cellpadding=""1"" cellspacing=""1"" border=""1"" style=""width: 100%;""" 
result = "" 
result = result & " " 

For i = 1 To Selection.Rows.Count 
    For j = 1 To Selection.Columns.Count 
     Dim cell As Range 
     Set cell = Selection.Cells(i, j) 
     cellStr = cell.Value 
     result = result & Chr(13) & "| " & cellStr 
    Next 
    result = result & Chr(13) & "|-" & Chr(13) 
Next 

result = "{| " & PadConst & result & "|}" 
Dim MyDataObj As New DataObject 
MyDataObj.SetText result 
MyDataObj.PutInClipboard 

MsgBox "Wiki table copied to clipboard: " & Chr(13) & Chr(13) & result 

結束子

增強將不勝感激。