☰

列表，带反斜杠的彩色 VBA

tag-icon • tag-icon listings classicthesis
列表，带反斜杠的彩色 VBA

我目前正在写我的硕士论文，有一些大量的 Visual Basic 代码，我想将其包含在附录中。我论文使用的模板是“classicthesis”（来自https://www.ctan.org/pkg/classicthesis）。我已经调整了一些东西来个性化代码，但我不明白如何克服这个问题。

问题是这样的。我编写的 VBA 代码很复杂。因此，我想用与 Visual Basic 中相同的颜色突出显示附录中的代码。在我的 VBA 代码中，我还定义了一些文件路径，我在字符串中使用了反斜杠。这个反斜杠就是问题所在。通常在 LaTex 中，反斜杠会被识别为命令。在这种情况下，它不是，我想使用与其余 VBA 代码相同的规则突出显示它。有人能告诉我如何在不调整 VBA 代码的情况下解决这个问题吗？

附录 .tex 文件是：

\documentclass[english]{scrreprt}
\input{../classicthesis-config}
\renewcommand{\thechapter}{\Alph{chapter}}
\begin{document}
\chapter{Appendix A}
\lstset{language=[Visual]Basic}
\lstinputlisting[caption=macro]{../Codes/Module1c.txt}
\end{document}

文件Module1.bas（部分）：

'Starting strings
Analysis = Worksheets("Loading").Range("C3")

'File paths
FilePathData = ThisWorkbook.Path & "\" & Analysis & "\" & LCase(Analysis) & ".DAT"
FilePathOutput = ThisWorkbook.Path & "\" & Analysis & "\" & UCase(Analysis) & ".OUT"
FilePathPostprocess = ThisWorkbook.Path & "\" & Analysis & "\" & Analysis & ".FVC"

'Clear the cells where information is placed
TableCorner.Resize(TableCorner.Cells.SpecialCells(xlCellTypeLastCell).Row, 10).Clear

结果如下： 附录 A

但是，我想让它看起来像这样： 附录A（手动调整）

相关内容