sheet 存檔案 檔案抓sheet 的問題

CYC

你好 小妹初學vba 有三個簡單的問題請教
1. 如果我想要設計一個button,讓使用者按下之後可以用滑鼠挑選一個excel檔案(類似open file)會自動把打開的檔案裡的test1.sheet 自動copy到目前的excel檔裡面且sheet名稱不變 我該怎麼做?
2. 我想要設計一個button,假設我要把目前的excel檔案裡的test2.sheet 讓使用存成一個excel檔案,檔名由使用者自由輸入,我該怎麼做?
3. 想要設計一個button,按下之後 自動會在 sheet3裡面,自動寫入爛位的名稱 如         A1               B1               c1

                                                                                                  name       student         sex

Hsieh

回復 1# CYC

1. Sub Button1()
   
2. Dim fs As String
   
3. fs = Application.GetOpenFilename
   
4. With Workbooks.Open(fs)
   
5. .Sheets("test1").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
   
6. .Close
   
7. End With
   
8. End Sub
   
9. Sub Button2()
   
10. Dim fs As String
    
11. With Application.FileDialog(msoFileDialogSaveAs)
    
12. .Show
    
13. If .SelectedItems.Count = 1 Then fs = .SelectedItems(1) Else MsgBox "請輸入存檔檔名": Exit Sub
    
14. Sheets("test2").Copy
    
15. ActiveWorkbook.SaveAs fs
    
16. End With
    
17. End Sub
    
18. Sub Button3()
    
19. Sheets("Sheet3").[A1:C1] = Array("name", "student", "sex")
    
20. End Sub

複製代碼

CYC

回復 2# Hsieh


    你好~~ 以上已經解決了 非常感謝

   還有兩個問題想請問 第一 請問我該怎麼把橫的矩陣 變成直的矩陣? 如sheet a 黃色變綠色 爬文只有看到直變橫@@ 謝謝  

   另一個問題是資料比對  當 A SHEET和 C SHEET去比較,假設A SHEET中 的g欄位和h欄位 與 c sheet a欄位和b欄位一樣時,

    則將 a sheet的 j欄位填入 c sheet的 c欄位,如果在C-SHEET的A欄位只有前三碼和ASHEET的G欄位相同時,C-SHEET的C欄位一樣要填入(如圖)

  試了好久寫不出來 再麻煩各位大大了

   

下載 (8.19 KB)

2011-8-3 21:14

下載 (13.02 KB)

2011-8-3 21:15