返回列表 上一主題 發帖

[發問] 用二維陣列，轉不出來資料

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-5 23:06 | 顯示全部帖子

[發問] 用二維陣列，轉不出來資料

本帖最後由 jesscc 於 2011-6-5 23:08 編輯

上次承蒙前輩教了我用二維陣列轉多欄位的資料，最近試作了一個檔案，可是資料轉不出來，不知哪裡出了問題，能請各位前輩幫忙看一下嗎?

我的工作是這樣的:
1.在 Test.xlsm 中的 Sheets("AA") 按下按鈕"POR"，會自動轉存成一份 "日期"+"已出貨.xlsx" 檔，格式跟原來的 Test.xlsm 是一模一樣的，但沒有任何資料。
2.接著程式會把 Test.xlsm 中 AA、BB、CC 三個工作頁的 B 欄位中只要有 "v" 及 "*" 的那一列資料分別存入空白的 "日期"+"已出貨.xlsx" 檔

Test.rar (59.69 KB)
收藏 分享
Jess

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
2#
發表於 2011-6-6 20:48 | 顯示全部帖子
好像不需要用到二維陣列，是我想太多了。

不過，Hsieh大大，剛剛試了一下發現，如果在B欄位都沒有標記 "v" 或 "*" 的情形下，沒辦法另存出正確的活頁簿檔名(我的想法是，至少它應該會存成一個空白無資料的新活頁簿)，而且會在這一行出現偵錯
wb.Sheets(.Name).[B7].Resize(s, 10) = Application.Transpose(Application.Transpose(Ay))
Jess

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
3#
發表於 2011-6-6 22:30 | 顯示全部帖子
原來只要檢查陣列中有無存入資料即可。
感謝 Hsieh 大再一次的幫忙，祝福你端午節愉快!
Jess

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題