  學(xué)習(xí)達人
|
zxzyer
講師
展開
重點提示：由于之前的dir函數(shù)獲取文件名時，由于一些BUG，所以使用try語句來輔助判斷，現(xiàn)在這個BUG修復(fù)了，所以之前的代碼就會出現(xiàn)問題。新代碼如下所示：
function 多工作表合并（）{
var wb1=ThisWorkbook;
var pah=wb1.Path+"\\分數(shù)表\\*.xlsx";
var file=Dir（pah）;
while （file!=""）{
var pah1=wb1.Path+"\\分數(shù)表\\"+file;
var wb2=Workbooks.Open（pah1）;
for （var sh of wb2.Sheets）{
sh.Copy（null,wb1.Sheets（"合并表"））;
}
wb2.Close（）;  飄柔洗酷頭
展開
@ zxzyer 曾老師你好，我修改了下代碼，想將“分數(shù)表”用引用A1單元格內(nèi)容表示，代碼如下function 多工作表合并（）{
var wb1=ThisWorkbook;
var pah=wb1.Path+"\\"+wb1.Sheets（"合并表"）.Range（"a1"）+"\\*.xlsx";.....
為什么用F11逐步調(diào)試時，直接運行結(jié)束，而沒有逐步運行呢 |
|
學(xué)習(xí)達人
|
浪花的芯
展開
function test（）{
var wb1=ThisWorkbook;
var path1=ThisWorkbook.Path+"\\分數(shù)表\\*.xlsx";
var file=Dir（path1）;
while （file!=""）{
var path2=wb1.Path+"\\分數(shù)表\\"+file;
var wb2=Workbooks.Open（path2）;
for （var sh of wb2.Sheets）{
sh.Copy（null,wb1.Worksheets（wb1.Sheets.Count））;
}
wb2.Close（）;
file=Dir（）;
}
} |
|
|
QQtn20y3gvh
展開
|
  打卡Lv1
|
聽風123a
展開
|
|
學(xué)習(xí)達人
|
u71407474
展開
|
|
學(xué)習(xí)達人
|
T-k2yru1utx
展開
|
承擔因您的行為而導(dǎo)致的法律責任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。