- 博客(12)
- 收藏
- 关注
RSS订阅原创 用SQL读取CSV文件
用SQL读取CSV文件1.OLEDB方式连接CSV的字符串写法Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourPath;Extended Properties=text;HDR=Yes;FMT=Delimited2.其中，HDR=Yes是说其中包含列标题3.FMT=Delimited 是说使用算定义的分隔符4.需要注意的是：
2011-06-10 16:44:00
5955
原创 用BrowseForFolder 和 GetOpenFilename 选取文件夹和文件名称
用BrowseForFolder 和 GetOpenFilename 选取文件夹和文件名称(纯粹自己看自己用)
2011-04-28 10:35:00
5652
1
原创 查汉字的区位码
<br />Attribute VB_Name = "查汉字的区位码"<br />Public Function QuWeiMa(mRange As Range) As String<br /> Dim bCode() As Byte, s As String<br /> bCode = StrConv(mRange.Value, vbFromUnicode)<br /> For ii = 0 To UBound(bCode) Step 2<br /> s = s & bCo
2011-04-28 10:32:00
783
原创 对给出的字符进行排列组合
对给出的字符，进行有顺序或无顺序的排列组合，找出全部的组合结果。(纯粹自己看自己用) 自己写的都有些看不懂了，思路忘了。但能用。
2011-04-28 10:01:00
882
1
原创 八进制和十六进制与二进制的转换及对应字符串
<br />Public Function OctToBin(ByVal sOct As String) As String<br /> Const s1 = "0001011100", s2 = "01253764"<br /> Dim i As Integer, sBin As String<br /> For i = 1 To Len(sOct)<br /> sBin = sBin & Mid(s1, InStr(1, s2, Mid(sOct, i, 1)), 3)<br /> Next
2011-04-28 09:51:00
1029
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人