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 

结束子

增强将不胜感激。