不打开工作簿提取数据

jiminyanyan

学习一下。。。。。

zhu086

zhaogang1960 发表于 2014-7-4 18:13
表1，表2都是csv文件，不是工作簿
请模拟效果，即你想达到的结果

不打开表1.csv和表2.csv ，一个宏执行两个表里满足条件则删除行的数据并保存，

模拟效果在表1和表2，数据源在表1.csv和表2.csv，谢谢

满足条件删除行数据.zip (6.92 KB, 下载次数: 23)

2014-7-5 09:12 上传

点击文件名下载附件

zhaogang1960

zhu086 发表于 2014-7-5 09:13
不打开表1.csv和表2.csv ，一个宏执行两个表里满足条件则删除行的数据并保存，

模拟效果在表1和表2，数 ...

1. Sub Macor1()
   
2.     Dim myPath$, MyFile$, s$()
   
3.     myPath = ThisWorkbook.Path & ""
   
4.     MyFile = Dir(myPath & "*.csv")
   
5.     Do While MyFile <> ""
   
6.         Open myPath & MyFile For Input As #1
   
7.         s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
8.         Close #1
   
9.         Open myPath & MyFile For Output As #1
   
10.         For i = 0 To UBound(s)
    
11.             If InStr(s(i), "等待买家付款") = 0 And InStr(s(i), "交易关闭") = 0 Then Print #1, s(i)
    
12.         Next
    
13.         Close #1
    
14.         MyFile = Dir()
    
15.     Loop
    
16. End Sub
    

复制代码

zhaogang1960

请测试附件
满足条件删除行数据.rar (8.48 KB, 下载次数: 43)

2014-7-5 12:08 上传

点击文件名下载附件

zhu086

zhaogang1960 发表于 2014-7-5 12:08
请测试附件

如果表1.csv和表2.csv 行数超过500，执行宏则会把表1.csv和表2.csv 工作簿都删空了，

还有一个A列的单元格有重复的值，行数没有删


老师费心了，谢谢

上传两个超过500行的数据
桌面.zip (10.93 KB, 下载次数: 15)

2014-7-5 13:24 上传

点击文件名下载附件

zhaogang1960

zhu086 发表于 2014-7-5 13:19
如果表1.csv和表2.csv 行数超过500，执行宏则会把表1.csv和表2.csv 工作簿都删空了，

还有一个A列的单 ...

“如果表1.csv和表2.csv 行数超过500，执行宏则会把表1.csv和表2.csv 工作簿都删空了”
这是什么意思？经测试没有发现这个问题
说明：1.csv和表2.csv不是工作簿，是csv文件，或成为文本文件的一种

zhu086

zhaogang1960 发表于 2014-7-5 13:46
“如果表1.csv和表2.csv 行数超过500，执行宏则会把表1.csv和表2.csv 工作簿都删空了”
这是什么意思？经 ...

不知道为什么，1.csv和2.csv下载下来，要先编辑保存，再去执行宏，就不会出现1.csv和2.csv数据全被删




还有一个关键的问题，能不能帮我把A列重复的单元格，删除重复值所在的行，A列不能有重复的值

zhaogang1960

zhu086 发表于 2014-7-5 15:10
不知道为什么，1.csv和2.csv下载下来，要先编辑保存，再去执行宏，就不会出现1.csv和2.c ...

1. Sub Macor1()
   
2.     Dim myPath$, MyFile$, s$(), d As Object, t$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     myPath = ThisWorkbook.Path & ""
   
5.     MyFile = Dir(myPath & "*.csv")
   
6.     Do While MyFile <> ""
   
7.         Open myPath & MyFile For Input As #1
   
8.         s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
9.         Close #1
   
10.         Open myPath & MyFile For Output As #1
    
11.         For i = 0 To UBound(s)
    
12.             If Len(s(i)) Then
    
13.                 If InStr(s(i), "等待买家付款") = 0 And InStr(s(i), "交易关闭") = 0 Then
    
14.                     t = Split(s(i), ",")(0)
    
15.                     If Not d.Exists(t) Then
    
16.                         d(t) = ""
    
17.                         Print #1, s(i)
    
18.                     End If
    
19.                 End If
    
20.             End If
    
21.         Next
    
22.         Close #1
    
23.         MyFile = Dir()
    
24.     Loop
    
25. End Sub
    

复制代码

zhaogang1960

请测试附件
满足条件删除行数据.rar (17.54 KB, 下载次数: 53)

2014-7-5 17:47 上传

点击文件名下载附件

zhu086

zhaogang1960 发表于 2014-7-5 17:48
请测试附件

谢谢老师...