<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[Thisnameisabout的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/Thisnameisabout</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; Thisnameisabout]]></copyright><item><title><![CDATA[【关于VB连接EXCEL数据库以ADODB方式】]]></title><link>https://blog.youkuaiyun.com/Thisnameisabout/article/details/128307028</link><guid>https://blog.youkuaiyun.com/Thisnameisabout/article/details/128307028</guid><author>Thisnameisabout</author><pubDate>Tue, 13 Dec 2022 19:58:44 +0800</pubDate><description><![CDATA[数据库的方式连接EXCEL是最快的方式]]></description><category></category></item><item><title><![CDATA[【VB6.0 数据库连接EXCEL查询合并单元格成功解决办法】]]></title><link>https://blog.youkuaiyun.com/Thisnameisabout/article/details/127822817</link><guid>https://blog.youkuaiyun.com/Thisnameisabout/article/details/127822817</guid><author>Thisnameisabout</author><pubDate>Sat, 12 Nov 2022 17:31:37 +0800</pubDate><description><![CDATA[【代码】【VB6.0 数据库连接EXCEL查询合并单元格成功解决办法】]]></description><category></category></item><item><title><![CDATA[VB6二维数组添加一列数据]]></title><link>https://blog.youkuaiyun.com/Thisnameisabout/article/details/127719501</link><guid>https://blog.youkuaiyun.com/Thisnameisabout/article/details/127719501</guid><author>Thisnameisabout</author><pubDate>Sun, 06 Nov 2022 19:13:34 +0800</pubDate><description><![CDATA[如何向二维数组添加一列数据
Dim a(0 To 3, 1 To 3)
Dim b(0 To 3, 1 To 4)
For i = 0 To 3
For j = 1 To 3
a(i, j) = “第” & i + 1 & “行” & j & “列”
Next j
Next i
For i = 0 To 3
For j = 4 To 1 Step -1
If j = 1 Then
b(i, j) = a(i, 2)
Else
MsgBox “i=” & i & “,j=” & j
b(i, j) = a(i]]></description><category></category></item></channel></rss>