设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 418|回复: 5

[待分类提问] 呼叫版主和卞雨大神,其他的大侠也可以的!

[复制链接]
发表于 2018-1-11 21:25:28 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?注册

x
程序运行的逻辑很简单,nput就是将固定路径文件夹里面的多个CSV文件数据汇总,自己增加了一个input语句,用来告诉程序在CSV文件里,我从哪行开始往下复制所有内容,然后将内容粘贴到一张汇总表里,程序完成后,发现无法抓取到路径值,请大侠赐教之~
代码如下:
Private Sub CommandButton1_Click()
Dim myPath$, myFile$, AK As Workbook, a As Single
    a = InputBox("a=", "请输入数据所在行的上一排")
    Application.ScreenUpdating = False
    tt = Timer
       Sheet1.UsedRange.Offset(1, 0).Clear
    myPath = Dir("C:\Documents and Settings\y1710036\桌面\投产数据整理\")
    myFile = Dir(myPath & "*.csv")
    Do While myFile <> ""
        If myFile <> ThisWorkbook.Name Then
            Set AK = Workbooks.Open(myPath & myFile)
              AK.Sheets(1).UsedRange.Offset(a, 0).Copy Sheet1.Range("A" & Sheet1.Cells(Rows.Count, 1).End(3).Row + 1)
            Workbooks(myFile).Close False
        End If
        myFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "程序运行时间为" & Timer - tt & "秒"
End Sub

Desktop.rar

57.31 KB, 下载次数: 0

发表于 2018-1-11 21:42:13 | 显示全部楼层
myPath = Dir("C:\Documents and Settings\y1710036\桌面\投产数据整理\")
把这一句的Dir()删掉,即改成:
myPath = "C:\Documents and Settings\y1710036\桌面\投产数据整理\"

多簿单表数据合并专家1.1
http://www.exceltip.net/forum.php?mod=viewthread&tid=50496
(出处: Excel 技巧网)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-1-12 19:50:02 | 显示全部楼层
0Mouse 发表于 2018-1-11 21:42
myPath = Dir("C:\Documents and Settings\y1710036\桌面\投产数据整理\")
把这一句的Dir()删掉,即改成: ...

mypath可以被赋值了,下个语句myfile仍然无法赋值,尝试把myfile=Dir(mypath&“*.CSV”)语句修改成myfile=“mypath&“*.CSV”,如果这样修改的话,myfile可以被赋值,但是仍然无法使程序正常运行
回复 支持 反对

使用道具 举报

发表于 2018-1-13 07:42:43 | 显示全部楼层

示例图片

示例图片
主线束.xlsx (18.92 KB, 下载次数: 1)
回复 支持 反对

使用道具 举报

发表于 2018-1-13 13:47:45 | 显示全部楼层
myPath = "C:\Documents and Settings\y1710036\桌面\投产数据整理\"
myFile = Dir(myPath & "*.CSV")
这样没错

如果不能正常运行,切换到代码运行窗口,视图-本地窗口,按F8逐行调试,看问题出在哪里。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-1-13 13:48:44 | 显示全部楼层
0Mouse 发表于 2018-1-13 13:47
myPath = "C:\Documents and Settings\y1710036\桌面\投产数据整理\"
myFile = Dir(myPath & "*.CSV")
这 ...

嗯嗯,其他地方有问题,已经找的差不多了,完全修改好了吗,贴上来
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2 ) | 闽公网安备 35020302032608号  

GMT+8, 2018-10-20 12:57

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表