這段代碼的問題是:
我們提供的服務(wù)有:成都網(wǎng)站設(shè)計、網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、長春ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的長春網(wǎng)站制作公司
首先for each循環(huán)在files里查找文件對象,但是f變量聲明為string了,無法讓它獲取對象;
然后file.copy的變量file沒有任何聲明,也沒有初始化賦值等;
最后,整個for each循環(huán)里查找集合files的文件,由于初始化的循環(huán)計數(shù)器仍然按照最初設(shè)定的文件數(shù)目向后遞增(文件地址),但是實際文件刪除一部分,后續(xù)的文件位置就不能跟循環(huán)計數(shù)指針匹配了,所以默認(rèn)為查找不到文件,將會報錯。一般的做法時把復(fù)制和刪除分別放在2次循環(huán)里,第一次只復(fù)制文件,第二次才去刪除。
對 Range 對象做 Copy 方法,要注意 Range 要連續(xù)的、成矩形選擇的。
例如像:A1:C5 可以復(fù)制,
例如像:A1:C5, A10:C15 就不能復(fù)制。
還要注意一點:對 Range 對象進(jìn)行操作的話,所在工作表先要激活。
someRange.Worksheet.Activate
如果還有問題的話,可以把對 Excel 操作的代碼提取到 Excel VBA 環(huán)境下調(diào)試好了再移植回去。
例如,把文件"E:\新建文件夾\a.txt"復(fù)制到剪貼板
CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"