都300G了,你要考慮你硬件的讀寫速度,你用手動(dòng)復(fù)制一次 看系統(tǒng)提示的預(yù)估時(shí)間大概是多久,你可以創(chuàng)建另外的進(jìn)程 或者 線程去執(zhí)行拷貝
順平網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)建站!從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站開發(fā)等網(wǎng)站項(xiàng)目制作,到程序開發(fā),運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)建站從2013年創(chuàng)立到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。
對(duì) Range 對(duì)象做 Copy 方法,要注意 Range 要連續(xù)的、成矩形選擇的。
例如像:A1:C5 可以復(fù)制,
例如像:A1:C5, A10:C15 就不能復(fù)制。
還要注意一點(diǎn):對(duì) Range 對(duì)象進(jìn)行操作的話,所在工作表先要激活。
someRange.Worksheet.Activate
如果還有問題的話,可以把對(duì) Excel 操作的代碼提取到 Excel VBA 環(huán)境下調(diào)試好了再移植回去。
用 io.Directory.Exists 判斷文件夾是否存在。
再用 My.Computer.FileSystem.CopyDirectory() 復(fù)制。
例如,把文件"E:\新建文件夾\a.txt"復(fù)制到剪貼板
CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"
這段代碼的問題是:
首先for each循環(huán)在files里查找文件對(duì)象,但是f變量聲明為string了,無法讓它獲取對(duì)象;
然后file.copy的變量file沒有任何聲明,也沒有初始化賦值等;
最后,整個(gè)for each循環(huán)里查找集合files的文件,由于初始化的循環(huán)計(jì)數(shù)器仍然按照最初設(shè)定的文件數(shù)目向后遞增(文件地址),但是實(shí)際文件刪除一部分,后續(xù)的文件位置就不能跟循環(huán)計(jì)數(shù)指針匹配了,所以默認(rèn)為查找不到文件,將會(huì)報(bào)錯(cuò)。一般的做法時(shí)把復(fù)制和刪除分別放在2次循環(huán)里,第一次只復(fù)制文件,第二次才去刪除。
先把"Form1.vb 的副本"改成"Form2",然后右擊“Form2”---查看代碼---把類名改成“Form2”就可以了