標題: [發問] 求救!!!匯入外部資料問題 [打印本頁]

---

作者: Justin_wang    時間: 2011-6-2 18:56     標題: 求救!!!匯入外部資料問題

請好心的大大救救我巴!!

1.希望設計一個指令按鈕可以執行巨集.
2.匯入外部資料後，等待人員選擇要匯入的檔案。(不要指定特定檔名，需要人員選定檔案)
3.當選定好檔案，按下開啟後，會跳出一個視窗提醒訊息，訊習內容為: 確認你要匯入檔案為xxxxx
  之後有YES/NO給人員選取，按下YES值執行匯入的檔案.
4.匯入方式如下
4-1.單筆匯入.
4-2.匯入全部內容
4-3.匯入在"原有"的活頁簿上名稱為"生產data".(不需要再新建活頁簿)
4-4.資料編排以"逗號"作區隔

附件為參考資料

---

作者: Hsieh    時間: 2011-6-2 20:30

1. Sub nn()
   
2. fs = Application.GetOpenFilename
   
3. If fs = False Then Exit Sub
   
4. yn = MsgBox("是否開啟" & fs, vbYesNo)
   
5. If yn = 6 Then
   
6. r = 1
   
7. Open fs For Input As #1
   
8. Sheets("生產data").Cells.ClearContents
   
9. Do Until EOF(1)
   
10. Line Input #1, mystr
    
11. ar = Split(mystr, ",")
    
12. Sheets("生產data").Cells(r, 1).Resize(, UBound(ar) + 1) = ar
    
13. r = r + 1
    
14. Loop
    
15. Close #1
    
16. End If
    
17. End Sub

複製代碼

---

作者: Justin_wang    時間: 2011-6-2 21:49

大大!!!!
感謝你!!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)