【VB.NET】直接通过文件结构生成xls文件
这个是给某人做项目的时候写的。

原本是C#的,我改写成VB.NET了,并且编译了一个dll。

--->>>>>>>>
attachment icon Excel_Writer.rar 5.00KB RAR 15次下载 <<<<<<<<---

测试通过,很好用

原文地址http://blog.csdn.net/jinjazz/archive/2008/08/01/2753869.aspx

调用方法:

Private Sub button1_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    Dim excel As New ExcelWriter("e:\test.xls")
    excel.BeginWrite
    excel.WriteString(0, 0, "1")
    excel.WriteString(0, 1, "2")
    excel.WriteString(1, 0, "3")
    excel.WriteNumber(1, 1, 4)
    excel.WriteNumber(2, 1, 5)
    excel.EndWrite
End Sub


这个,要写多维数组到xls就简单了吧 = = 直接循环 嗯

下面是代码

Public Class Exel_Writer
    Dim _r As System.IO.FileStream

    Public Function Init(ByVal strPath As String)
        _r = New System.IO.FileStream(strPath, System.IO.FileMode.OpenOrCreate)
        Return Nothing
    End Function

    Public Sub BeginWrite()
        Me._writeFile(New Short() {&H809, 8, 0, &H10, 0, 0})
    End Sub


    Private Function _writeFile(ByVal values As Short())
        Dim v As Short
        For Each v In values
            Dim b As Byte() = BitConverter.GetBytes(v)
            Me._r.Write(b, 0, b.Length)
        Next
        Return Nothing
    End Function

    Public Function EndWrite()
        Dim CS As Short() = New Short(2 - 1) {}
        CS(0) = 10
        Me._writeFile(CS)
        Me._r.Close()
        Return Nothing
    End Function

    Public Function WriteNumber(ByVal x As Short, ByVal y As Short, ByVal value As Double)
        Dim CS As Short() = New Short(5 - 1) {}
        CS(0) = &H203
        CS(1) = 14
        CS(2) = x
        CS(3) = y
        Me._writeFile(CS)
        Dim b As Byte() = BitConverter.GetBytes(value)
        Me._r.Write(b, 0, b.Length)
        Return Nothing
    End Function

    Public Function WriteString(ByVal x As Short, ByVal y As Short, ByVal value As String)
        Dim b As Byte() = System.Text.Encoding.Default.GetBytes(value)
        Dim CS As Short() = New Short(6 - 1) {}
        CS(0) = &H204
        CS(1) = CShort((b.Length + 8))
        CS(2) = x
        CS(3) = y
        CS(5) = CShort(b.Length)
        Me._writeFile(CS)
        Me._r.Write(b, 0, b.Length)
        Return Nothing
    End Function
End Class


附:原C#代码



ex.png
来自:聊天生活广场 / 科创茶话
 
2009-7-16 2:18:58
1楼
Button1...我又见到了……

话说您直接Imports System.IO不就完了,每次都写一遍累不累(虽然我们有IntelliSense……)

= =...还有无爱的Class1……--~~~~
折叠评论
加载评论中,请稍候...
折叠评论
2009-7-16 2:20:00
93°(作者)
2楼
……
好吧,button1是囧3程序特色
折叠评论
加载评论中,请稍候...
折叠评论
3楼
xls还是xlsx?
折叠评论
加载评论中,请稍候...
折叠评论
4楼
_writeFile(new short[] { 0x809, 8, 0, 0x10, 0, 0 }
这种让人看到心里不踏实。

其实写成带分割符的txt, 然后一个批处理导入到excel中就搞定了。
折叠评论
加载评论中,请稍候...
折叠评论
5楼
引用第3楼小光Telnet于2009-07-16 08:01发表的  :
xls还是xlsx?

显然是XLS...XLSX直接imports下XML库就完了
折叠评论
加载评论中,请稍候...
折叠评论
2009-07-18 13:58:25
2009-7-18 13:58:25
93°(作者)
6楼
话说……没人鸟我么 = =
折叠评论
加载评论中,请稍候...
折叠评论
7楼
不错,难以不鸟你,现在授予93°  “XLS勋章”,以资鼓励。
折叠评论
加载评论中,请稍候...
折叠评论
2009-07-21 10:59:28
2009-7-21 10:59:28
8楼
厉害,结构都掌握了.难道想玩fuzz?
折叠评论
加载评论中,请稍候...
折叠评论
2009-08-15 10:52:40
2009-8-15 10:52:40
9楼
有C++版的吗?要是有能在单片机上运行的更好
折叠评论
1
加载评论中,请稍候...
折叠评论
93°(作者)
10楼
引用第9楼warmonkey于2009-08-15 10:52发表的  :
有C++版的吗?要是有能在单片机上运行的更好

把system.IO换成fputc (pia)就可以了。。。。。
折叠评论
加载评论中,请稍候...
折叠评论
2019-10-03 08:50:53
2019-10-3 8:50:53
11楼
引用warmonkey发表于9楼的内容
有C++版的吗?要是有能在单片机上运行的更好

单片机?单片机要是有能操作xls的能力(我指的是8051),我还不如移植一个excel上去(即使是2003)😁

折叠评论
加载评论中,请稍候...
折叠评论
2019-10-04 22:34:18
2019-10-4 22:34:18
12楼
引用Johnsons发表于11楼的内容
单片机?单片机要是有能操作xls的能力(我指的是8051),我还不如移植一个excel上去(即使是2...

arduino已经实现了一些基本的功能,没那么复杂

折叠评论
1
加载评论中,请稍候...
折叠评论
2019-10-05 08:55:16
13楼
引用warmonkey发表于12楼的内容
arduino已经实现了一些基本的功能,没那么复杂

正解

很适合做采集之类的东西

折叠评论
加载评论中,请稍候...
折叠评论
14楼

我觉得不一定要xls,可以用像csv这种纯文本的

折叠评论
加载评论中,请稍候...
折叠评论
2020-04-20 14:45:30
2020-4-20 14:45:30
15楼
引用Johnsons发表于13楼的内容
正解很适合做采集之类的东西

现在能做到STM32直接在内存卡里生成PDF文件,用在温湿度记录仪上面。这个文章的作者现在是CMU大佬。


折叠评论
1
加载评论中,请稍候...
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

93°
学者 笔友
文章
651
回复
6032
学术分
30
2007/04/10注册,2 年前活动
暂无简介
插入资源
全部
图片
视频
音频
附件
全部
未使用
已使用
正在上传
空空如也~
上传中..{{f.progress}}%
处理中..
上传失败,点击重试
{{f.name}}
空空如也~
(视频){{r.oname}}
{{selectedResourcesId.indexOf(r.rid) + 1}}
插入表情
我的表情
共享表情
Emoji
上传
注意事项
最大尺寸100px,超过会被压缩。为保证效果,建议上传前自行处理。
建议上传自己DIY的表情,严禁上传侵权内容。
点击重试等待上传{{s.progress}}%处理中...已上传
空空如也~
草稿箱
加载中...
此处只插入正文,如果要使用草稿中的其余内容,请点击继续创作。
{{fromNow(d.toc)}}
{{getDraftInfo(d)}}
标题:{{d.t}}
内容:{{d.c}}
继续创作
删除插入插入
{{forum.displayName}}
{{forum.countThreads}}
篇文章,
{{forum.countPosts}}
条回复
{{forum.description || "暂无简介"}}
ID: {{user.uid}}
学术分隐藏
{{submitted?"":"投诉"}}
请选择违规类型:
{{reason.description}}
支持的图片格式:jpg, jpeg, png