Excel到WiKi宏

Question

我需要一个宏来将Excel电子表格转换为维基格式并在维基中发布。

示例数据

select  c.clientid [Client Id],c.nnn [NHS Number],c.surname 
Surname,c.firstname FirstName,c.gender Gender,c.dateofbirth [Date of 
Birth],c.dateregistered [Date Registered], ca.Postcode
from dbo.Client c 
inner join dbo.Client d 
on c.Surnamesoundex=d.Surnamesoundex and c.clientid<>d.clientid 
and (c.nnn is null or d.nnn is null)
and c.Firstnamesoundex=d.Firstnamesoundex 
and (c.clientid <> 1120198 and c.clientid <>1126429)
and  c.dateofbirth between c.DateOfBirth + INTERVAL 1 YEAR
left outer join dbo.clientaddress ca 
on d.clientid=ca.clientid and ca.todate is null 
order by c.SurnameSoundex,c.FirstnameSoundex

假设我们想要将转换后的表格发布到dummy：= 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

End Sub

非常感谢增强功能。