从文本文件导入excel,样式
问题描述:
我有一个保存文本文件的程序,我想要的是在excel中打开这些文本之前添加一些基本样式。从文本文件导入excel,样式
我的文件通常是这样的:
Title of text
lorem ipsum dolor sit amet
有什么我可以在这个文本文件,这将使“标题文本的” 大胆在Excel中打开的时候写的?
像HTML标记就
<b>Title of text</b>
lorem ipsum dolor sit amet
有什么Excel的相似?
答
您可以使用以下代码。此代码将格式化文本的范围为A1:A13
。您可以根据需要选择要格式化的范围。只需将此代码复制到Visual Basic编辑器,然后使用运行子按钮运行子。
Sub Macro1()
Dim str As String
Dim nBold As Long
Dim nEndBold As Long
Dim nChars As Long
Set Rng = Range("A1:A13")
For Each cell In Rng
str = cell.Text
nBold = InStr(str, "<b>")
If nBold > 0 Then
nEndBold = InStr(str, "</b>")
If nEndBold = 0 Then nEndBold = 32767
nChars = nEndBold - nBold - 3
str = Replace(Replace(str, "<b>", ""), "</b>", "")
cell.Value = str
cell.Characters(nBold, nChars).Font.Bold = True
End If
Next cell
End Sub
看看this link了解更多信息。
您可以在excel中添加样式是,但是您是否尝试将格式存储在保存的文本文件中或打开文本的excel文件中? –
@TimWilkinson在Excel中打开文本文件之前,我希望将格式文件存储在文本文件中,因此第一次在Excel中打开时,标题将为粗体。 – klskl
如果要将工作表保存为“.txt”或其他任何原始文件文本格式,你将无法实现这一点。您将不得不导出为HTML或Word文档,例如保留您添加的任何样式。 –