如何用excel看小说

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):



发现有些书号并不存在。取了【书号】、【书名】、【作者】、【总点击】、【总推荐】和【二级类目】。【一级类目】的取法简单暂时没有取。【字数】在另外的方法,以后会单独取。用Excel的Web查询和公式做的,不过效率很低。如果访问10万个页面来取得数据,估计楼主封题我都没取完呢,我再简化简化代码。楼主最好能提供更好的页面来获取数据。我取数的页面是这样的:http://www.cmfu.com/showbook.asp?bl_id=145840【起点编辑内部评分】这个在那些页面可以看到?百度知道的修改上限是7次,楼主如果觉得我做符合要求,可以短消息跟我交流
与如何用excel看小说有关的内容
相关小说阅读