Board logo

標題: sheet 存檔案 檔案抓sheet 的問題 [打印本頁]

作者: CYC    時間: 2011-8-1 23:30     標題: sheet 存檔案 檔案抓sheet 的問題

本帖最後由 CYC 於 2011-8-1 23:36 編輯

你好 小妹初學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    時間: 2011-8-2 10:47

回復 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    時間: 2011-8-3 21:18

回復 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欄位一樣要填入(如圖)

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

   [attach]7260[/attach][attach]7261[/attach]




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