e****e
发帖数: 2010 | 1 最近搞Deal，把脑子搞笨了，搞懒了。
万能的Ebiz，给个方案吧。
VB， Matlab or Others |
u******s
发帖数: 3876 | 2 找个护士干
最近搞Deal，把脑子搞笨了，搞懒了。
万能的Ebiz，给个方案吧。
VB， Matlab or Others
【在 e****e 的大作中提到】
: 最近搞Deal，把脑子搞笨了，搞懒了。
: 万能的Ebiz，给个方案吧。
: VB， Matlab or Others
|
e****e
发帖数: 2010 | 3 这可比少200个卫生巾容易多了，有护士报名吗？ 虽然俺也是小护士一枚。
【在 u******s 的大作中提到】
: 找个护士干
:
: 最近搞Deal，把脑子搞笨了，搞懒了。
: 万能的Ebiz，给个方案吧。
: VB， Matlab or Others
|
S*********g
发帖数: 5298 | 4 VBA
【在 e****e 的大作中提到】
: 最近搞Deal，把脑子搞笨了，搞懒了。
: 万能的Ebiz，给个方案吧。
: VB， Matlab or Others
|
S*********g
发帖数: 5298 | 5 就只是把文件直接存成csv，没其他操作要做？
【在 e****e 的大作中提到】
: 这可比少200个卫生巾容易多了，有护士报名吗？ 虽然俺也是小护士一枚。
|
s*****r
发帖数: 2347 | |
e****e
发帖数: 2010 | 7 是的， 只要存成csv。 俺已经用Matlab做了。
VBA也因该可以吧
【在 S*********g 的大作中提到】
: 就只是把文件直接存成csv，没其他操作要做？
|
l******n
发帖数: 9344 | 8 多少$$?我帮你做
deal呀
【在 e****e 的大作中提到】
: 是的， 只要存成csv。 俺已经用Matlab做了。
: VBA也因该可以吧
|
e****e
发帖数: 2010 | 9 100伪币 for VBA code, 能够正确执行。
1）multiple Excel files convert to CVS files, 200 or 1000 files whatever.
or
2) multiple Excel files merge to excel one sheet, top->down,200 or 1000
files whatever.
【在 l******n 的大作中提到】
: 多少$$?我帮你做
: deal呀
|
N**i
发帖数: 7 | 10 改个路径应该就可以了
Sub ConvertCSV()
Dim Folder
Dim File
Dim i
Folder = "C:\Temp\"
With Application.FileSearch
.NewSearch
.SearchSubFolders = False
.LookIn = Folder
.Execute
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To .FoundFiles.Count
Set File = fs.GetFile(.FoundFiles(i))
If Right(File.Name, 4) = ".xls" Then Application.Workbooks.Open (Folder +
File.Name)
Application.Workbooks(File.Name).SaveAs Folder + File.Name + ".csv",
FileFormat:= |
|
|
n*****s
发帖数: 3246 | 11 faint ... 直接贴出来断了大家的财路呀 |
N**i
发帖数: 7 | 12 那应该咋办？
【在 n*****s 的大作中提到】
: faint ... 直接贴出来断了大家的财路呀
|
e****e
发帖数: 2010 | 13 Cool, Baozi 归你了。
第二题？再加5个包子。
【在 N**i 的大作中提到】
: 改个路径应该就可以了
: Sub ConvertCSV()
: Dim Folder
: Dim File
: Dim i
: Folder = "C:\Temp\"
: With Application.FileSearch
: .NewSearch
: .SearchSubFolders = False
: .LookIn = Folder
|
S*********g
发帖数: 5298 | 14 Save all your excel file in one folder.
use the following code.
sub convertCVS()
inPath = "your path to xls file\"
outPath = "your path to save csv\"
f = dir(inpath & "*.xls")
do while len(f)<>0
on error goto skiperror
set w = workbooks.open(inPath & f)
w.saveas filename:=outPath & left(f,len(f)-4)) & ".csv",
fileformat:=xlcsv
w.close false
skiperror:
f=dir()
loop
end sub
whatever.
1000
【在 e****e 的大作中提到】
: 100伪币 for VBA code, 能够正确执行。
: 1）multiple Excel files convert to CVS files, 200 or 1000 files whatever.
: or
: 2) multiple Excel files merge to excel one sheet, top->down,200 or 1000
: files whatever.
|
e****e
发帖数: 2010 | 15 你把那删除了吧，版权归俺了。哈哈
【在 N**i 的大作中提到】
: 那应该咋办？
|
S*********g
发帖数: 5298 | 16 Save all your excel file in one folder.
use the following code.
sub merge()
inPath = "your path to xls file\"
outPath = "your path to save new file\"
set newFile = workbooks.add
startRow = 1
set targetSheet = newFile.worksheets(1)
f = dir(inpath & "*.xls")
do while len(f)<>0
on error goto skiperror
set w = workbooks.open(inPath & f)
newFile.activate
targetSheet.cells(startRow,1).select
w.worksheets(1).usedrange.copy
targetSheet.paste
startRow = startRow + w.worksheets(1 |
e****e
发帖数: 2010 | 17 第一题没包子了，第二题，First答出的有5个包子 |
e****e
发帖数: 2010 | 18 5Baozhi， 你的。
【在 S*********g 的大作中提到】
: Save all your excel file in one folder.
: use the following code.
: sub merge()
: inPath = "your path to xls file\"
: outPath = "your path to save new file\"
: set newFile = workbooks.add
: startRow = 1
: set targetSheet = newFile.worksheets(1)
: f = dir(inpath & "*.xls")
: do while len(f)<>0
|
e****e
发帖数: 2010 | 19 等偶验证完， 就给Noni，SuperString你俩发 |
w*****s
发帖数: 4116 | 20 is this visual basic code?
【在 N**i 的大作中提到】
: 改个路径应该就可以了
: Sub ConvertCSV()
: Dim Folder
: Dim File
: Dim i
: Folder = "C:\Temp\"
: With Application.FileSearch
: .NewSearch
: .SearchSubFolders = False
: .LookIn = Folder
|
|
|
e****e
发帖数: 2010 | 21 VBA: Visual Basic for Applications
熊M也高手？
【在 w*****s 的大作中提到】
: is this visual basic code?
|
y*****u
发帖数: 4807 | |
m*r
发帖数: 37612 | 23 我有一箱子瓜子，麻烦你先帮我剥开吧
【在 y*****u 的大作中提到】
: 报名手动1个个改！
: 纯手工
|
e****e
发帖数: 2010 | 24 通过了，包子已发。
【在 N**i 的大作中提到】
: 改个路径应该就可以了
: Sub ConvertCSV()
: Dim Folder
: Dim File
: Dim i
: Folder = "C:\Temp\"
: With Application.FileSearch
: .NewSearch
: .SearchSubFolders = False
: .LookIn = Folder
|
e****e
发帖数: 2010 | 25 通过了，包子已发,谢谢。
【在 S*********g 的大作中提到】
: Save all your excel file in one folder.
: use the following code.
: sub merge()
: inPath = "your path to xls file\"
: outPath = "your path to save new file\"
: set newFile = workbooks.add
: startRow = 1
: set targetSheet = newFile.worksheets(1)
: f = dir(inpath & "*.xls")
: do while len(f)<>0
|
e****e
发帖数: 2010 | 26 太葱白了，给你个小板凳，小本本，姥姥你帮偶抄吧
【在 y*****u 的大作中提到】
: 报名手动1个个改！
: 纯手工
|
y*****u
发帖数: 4807 | 27 可以用牙齿咬吗？
俺尽量少沾口水
【在 m*r 的大作中提到】
: 我有一箱子瓜子，麻烦你先帮我剥开吧
|
m*r
发帖数: 37612 | 28 这里还有5斤松子，你也要 用牙齿吗？
【在 y*****u 的大作中提到】
: 可以用牙齿咬吗？
: 俺尽量少沾口水
|
