- 博客(5)
- 资源 (8)
- 收藏
- 关注
RSS订阅原创 利用VBA+ADO转置及合并CSV
SUB 转置()Transfrom 统计项 select 行字段 from (数据源) group by 列字段 pivot 行字段Set cnn = CreateObject("ADODB.CONNECTION")Set RS = CreateObject("ADODB.RECORDSET")cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Ex...
2020-04-30 08:58:43
615
原创 批处理_DBISQL
@ECHO OFFrem "day"if exist "AA.sql" dbisql -datasource TEST_DB AA.sql>nulPAUSE
2020-04-22 11:27:42
252
原创 VBA提取指定区间的数据
Sub OptionalFeatureLicense() Dim Fs As Object, Ft As Object, S As String Set Fs = CreateObject("Scripting.FileSystemObject") Set d = CreateObject("scripting.dictionary") filePath = Th...
2020-04-12 19:14:53
2326
原创 VBA读取逐行读取CSV数据(可指定条件)
Sub 提取部分CSV数据()Dim FileName As StringDim txtLine As StringFileName = ThisWorkbook.Path & "\EUtranCellRelation.csv"Open FileName For Input As #1Open ThisWorkbook.Path & "\output.CSV" For ...
2020-04-09 13:30:26
7687
2
原创 VBA复制文件(如CSV)
Sub copyfile() Dim fso As Object, sf$, df$ Dim fileNameObj As Variant Dim i As Integer fileNameObj = Application.GetOpenFilename("CSV 文件 (*.CSV),*.CSV") If fileNameObj <> Fa...
2020-04-01 22:15:18
922
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人