Users > Isetnefret > Macro > Excel-To-Wiki

Excel to Wiki

Every page related to viticulture that I have pretty much came from Excel, and uses a macro to convert into a format the Wiki recognizes. Doing this by hand is......insane.

This simple macro well export the area of a worksheet that is selected and will export it to a file. It will prompt you to enter a file and path name. Be sure that you name it .txt, because that's the easiest. Make sure you put it somewhere you can find it.

Then open the text file and copy the contents into the Wiki. You have to play with it a little bit, but I think you'll like it.

Macro Code

Sub WikiExport()

   ' Dimension all variables.
   Dim DestFile As String
   Dim FileNum As Integer
   Dim ColumnCount As Integer
   Dim RowCount As Integer

   ' Prompt user for destination file name.
   DestFile = InputBox("Enter the destination filename" _
      & Chr(10) & "(with complete path):", "WikiExporter")

   ' Obtain next free file handle number.
   FileNum = FreeFile()

   ' Turn error checking off.
   On Error Resume Next

   ' Attempt to open destination file for output.
   Open DestFile For Output As #FileNum

   ' If an error occurs report it and end.
   If Err <> 0 Then
      MsgBox "Cannot open filename " & DestFile
      End
   End If

   ' Turn error checking on.
   On Error GoTo 0

   ' Loop for each row in selection.
   For RowCount = 1 To Selection.Rows.Count

      ' Loop for each column in selection.
      For ColumnCount = 1 To Selection.Columns.Count

         ' Write current cell's text to file with quotation marks.
         Print #FileNum, "||  " & Selection.Cells(RowCount, _
            ColumnCount).Text & "  ";

         ' Check if cell is in last column.
         If ColumnCount = Selection.Columns.Count Then
            ' If so, then write a blank line.
            Print #FileNum, "||"
         Else
            ' Otherwise, write a comma.
            'Print #FileNum, "||";
         End If
      ' Start next iteration of ColumnCount loop.
      Next ColumnCount
   ' Start next iteration of RowCount loop.
   Next RowCount

   ' Close destination file.
   Close #FileNum

End Sub

Instructions

Have you ever created an Excel Macro before?

• Step 1: If you are using Excel 2007, email me at Isetnefret@gmail.com and ignore these instructions.
• Step 2: If you are using a version of Excel older than Excel 97, throw it away and get a new copy, sorry :(
• Step 3: If you are using Excel 97-2003, click on Tools from the top menu.
  • Scroll down to Macro, and choose Record New Macro
    • 
• Step 4: Click OK on the little screen that pops up.
  • 
• Step 5: Click teh stop button on the macro control.
  • 
• Step 6: Press Alt and F8 at the same time to bring up the Macro control panel.
  • 
• Step 7: Click edit from the Macro control panel.
• Step 8: In the VBA editor screen, you can see the code of your macro.
  • 
• Step 9: Copy the entire code section from this page and paste it into the VBA editor screen.
  • 
• Step 10: Now close out of the VBA Editor screen (you don't have to save). And save your workbook.
• Step 11: Optionally, you can hit Alt and F8 to bring up the Macro control panel again. Select the macro that now says "WikiExport" and click the Options button.
  • This brings up the Macro Options window where you can enter a keystroke shortcut, such as CTRL and E, like mine.

To use the Macro

• Step 1: Select a block of cells.
  • 
• Step 2: Run the macro by pressing your keystroke shortcut combination, or pushing Alt and F8 and choosing Run.
• Step 3: Enter the path to save the text file, as prompted. You may enter ANY path and file name, but be sure to remember it.
  • 
• Step 4: Finally, open the file you just created, and you now have text that can be pasted into the Wiki.
  • 

Problems

Let me know if you have any problems