使用样式从文本文件导入excel

使用样式从文本文件导入excel,excel,text,Excel,Text,我有一个保存文本文件的程序,我想做的是在excel中打开文本之前,为文本添加一些基本样式 我的文件通常如下所示: Title of text lorem ipsum dolor sit amet 我是否可以在这个文本文件中编写任何东西,使“文本标题”在excel中打开时变为粗体 就像html标签一样 <b>Title of text</b> lorem ipsum dolor sit amet 文本标题 lorem ipsum dolor sit amet ex

我有一个保存文本文件的程序,我想做的是在excel中打开文本之前,为文本添加一些基本样式

我的文件通常如下所示:

Title of text

lorem ipsum dolor sit amet
我是否可以在这个文本文件中编写任何东西,使“文本标题”在excel中打开时变为粗体

就像html标签一样

<b>Title of text</b>

lorem ipsum dolor sit amet
文本标题
lorem ipsum dolor sit amet

excel有类似的功能吗?

您可以使用以下代码。此代码将格式化范围
A1:A13
中的文本。您可以根据需要选择要格式化的范围。只需将此代码复制到VisualBasic编辑器中,然后使用RunSub按钮运行sub

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
Sub宏1()
作为字符串的Dim str
长得一样
暗嫩倍长
暗淡的头发和头发一样长
设置Rng=范围(“A1:A13”)
对于Rng中的每个单元
str=cell.Text
nBold=仪表(str,“”)
如果nBold>0,则
nEndBold=InStr(str,“”)
如果nEndBold=0,则nEndBold=32767
nChars=nEndBold-nBold-3
str=Replace(Replace(str,,,,,,,)
cell.Value=str
cell.Characters(nBold,nChars).Font.Bold=True
如果结束
下一个细胞
端接头

查看以了解更多信息。

您可以在excel中添加样式是的,但您是要将格式存储在保存的文本文件中,还是存储在打开文本的excel文件中?@TimWilkinson我想在excel中打开文本文件之前,将格式存储在文本文件中,因此,第一次在excel中打开时,如果您将工作表保存为
.txt
或任何其他原始文本格式,则标题将为粗体。例如,您必须导出为HTML或word文档,以保留您添加的任何样式。@TimWilkinson我也这么怀疑,如果您做出回答,我会接受(一两天后,必须保持希望)。因为如果这是事实,这是我能接受的唯一答案