摘要:
一,方法一,代码运行一次是加密,再次运行是解密,代码如下: Sub 文件的加密解密() Dim stm As New ADODB.Stream Dim str As String, i As Long Dim arr() As Byte str = ThisWorkbook.Path & "\文件" 阅读全文
posted @ 2021-11-17 22:01
Mr.LiX
阅读(450)
评论(0)
推荐(0)
摘要:
一,Open语句方式,代码如下: Sub Excel数据存入txt文件() Dim arr, brr Dim str As String, ptr As String Dim row As Integer, num As Integer arr = Range("A1").CurrentRegion 阅读全文
posted @ 2021-11-17 21:55
Mr.LiX
阅读(560)
评论(0)
推荐(0)
摘要:
一,以OLEDB连接方式导入,代码如下: Sub 导入txt数据到工作表() Dim con As New ADODB.Connection Dim res As New ADODB.Recordset Dim str As String str = ThisWorkbook.Path & "\" 阅读全文
posted @ 2021-11-17 21:48
Mr.LiX
阅读(333)
评论(0)
推荐(0)
摘要:
代码如下: 一,前期绑定: Sub 转换txt文件编码() Dim stm As New ADODB.Stream Dim str As String Dim ins As String ins = ThisWorkbook.Path & "\数据.txt" With stm .Charset = 阅读全文
posted @ 2021-11-17 21:22
Mr.LiX
阅读(922)
评论(0)
推荐(0)

浙公网安备 33010602011771号