1、请高人提供一个将txt小说导入excel的思路,百分相赠。
给你一个宏,可以完成这个工作。注意,只有主要功能。至于其它辅助防错等等,需要的话,你可以自己加工。
前提:
1、TXT文件为:c:\1.txt——可以根据实际需要更改程序参数
2、章号独立占一行,首字为“第”,最后一字为“章”——可以根据实际情况调整程序
程序如下:
Sub readtxt()
Filename = "c:\1.txt"
Open Filename For Input As #1
'读文件内容
Dim InputStr, TxtBuf As String
Line Input #1, InputStr
i = 1
TxtBuf = ""
While Not EOF(1)
If Left(InputStr, 1) = "第" And Right(InputStr, 1) = "章" Then
Cells(i, 2) = TxtBuf
TxtBuf = ""
i = i + 1
Cells(i, 1) = InputStr
Else
TxtBuf = TxtBuf & InputStr & Chr(13) + Chr(10)
End If
Line Input #1, InputStr
Wend
Cells(i, 2) = TxtBuf & InputStr
Close #1
MsgBox ("完成")
End Sub
2、表格怎么设置阅读模式
在日常工作中,我们会有大量的时间使用Excel,当数据量过大时,眼睛需要在海量的数据中,找到我们需要的数据,容易出现错误,看偏数据或看漏数据,因此我们可以在Excel中,设置阅读模式,使我们的鼠标跟着数据走,目标数据能更好的显示在Excel中。那我们如何在Excel中,去设置阅读模式呢?
1、打开电脑,然后再打开Excel应用,找到目标数据。
2、要想在Excel中,设置阅读模式,有两种方式。
第一种:Excel中,有大量的便捷处理方式,分布在Excel中布局中。在Excel的右下角,有设置阅读模式的快捷方式,找到十字标志的图案,点击即可进入阅读模式,在十字标志的右边有一个小的三角标志,点击进入可选择阅读模式的颜色,案例中我们选择绿色。

3、第二种:打开Excel,在Excel最上面的菜单栏中,找到“视图”,然后点击进入。在“视图”的子菜单栏中,找到十字标志的图案,点击即可进入阅读模式。和第一种一样,在十字标志的下方有一个小的三角标志,点击进入可选择阅读模式的颜色,案例中我们选择蓝色。
3、能用EXCEL做看小说的快捷方式吗
需要你对列表中的每一项逐条做超链接,这样你一点击列表条目,就会打开超链接的文档
4、如何获取“起点中文网”所有小说名称和信息的列表?
今天尝试了一下书号145840-145850,整理结果如下(文件格式.xls):