| 发表于:2007-09-26 12:04:47 楼主 |
option explicit dim a(1 to 100) as string,pn as long private sub form_load() pn = 0 open app.path + "\aaa.xls " for input as #1 while not eof(1) pn = pn + 1 line input #1, a(pn) wend close end sub 想打开一个excel(5列,行数不限),去掉前三行后,复制到aaa.xls中 应该怎么写 然后再把数组a(i)里的数据导出到另外一个excel 应该怎么写 |
|
|
|
|