[toc]

引言

用latex排版的朋友都知道，latex排版中，表格的输入非常麻烦。最好的表格工具莫过于Excel，如果能用程序将Excel表格转化成latex格式，那么工作将大大轻松。

问题描述

一个典型的Excel简单表格，如下图所示。简单表格指的是，矩阵形式，没有合并单元格的表格。

a typical Exce table.png-10.5kB

相应的latex代码如下，省去了一些高阶的格式设置代码。

\begin{table}
\caption{试验拉索样本}
\label{tab:sample}
拉索编号  & 拉索型号 & 长度（m） & 钢束直径（mm）\\
SW1 & PES 7-109 & 24.412    & 73.08  \\
SW2 & PES 7-109 & 20.155    & 73.08  \\
SW3 & PES 7-109 & 16.861    & 73.08  \\
SW4 & PES 7-109 & 14.697    & 73.08  \\
SW5 & PES 7-109 & 14.381    & 73.08  \\
SW6 & PES 7-109 & 16.033    & 73.08  \\
\end{table}

可以看出，latex表格代码的关键在于：

• 单元格与单元格之间通过&连接；
• 行与行之间通过\\断行；

显然，手动输入这么多符号非常痛苦，那么有没有可能用程序来实现这一过程呢？

方法

程序为解决重复的确定工作而生。

方法非常简单，不过将我们的手动工作分解为简单步骤告诉计算机去执行而已：

• 将一行的单元格内容SW1 PES 7-109 24.412 73.08合并为SW1 & PES 7-109 & 24.412 & 73.08 \\;
• 重复以上工作n次；

实现这一过程最好的编程工具即为Excel自带的VBA。

程序

VBA编程窗口编写以下代码：

Sub xls2tex()

Dim ran As Range
Dim str As String
Dim index As String
Dim r As Range
Dim midrule As String

For iloop = 1 To Selection.Rows.Count

    str = ""
    index = "M" & iloop
    
    For Each ran In Selection.Range(Cells(iloop, 1), Cells(iloop, Selection.Columns.Count - 1))
    str = str & ran & " & "
    Next
    
    For Each ran In Selection.Range(Cells(iloop, Selection.Columns.Count), Cells(iloop, Selection.Columns.Count))
    str = str & ran & " \\ "
    Next
    
    Worksheets("Sheet1").Range(index) = str
Next

End Sub

即生成宏（macro）--xls2tex。

应用

步骤：

• Excel表格输入原始表格；
• 运行宏 xls2tex；
• 得到转换后tex格式表格；

xls2tex result

表格中实际上包含了另外一个程序xls2md，将一般表格转换为markdown格式，用于更加实用的markdown技术文档写作。

xls2md

Excel表格下载--转换表格

关于VBA

VBA可能是最简单好用的编程语言，编制这个程序，没有VBA系统学习基础，通过百度搜索相近问题的代码，拼装调试而成。

如果经常使用该宏，最好设置相应的快捷键，一键解决，具体百度。