標題:
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
Sub Button1()
Dim fs As String
fs = Application.GetOpenFilename
With Workbooks.Open(fs)
.Sheets("test1").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
.Close
End With
End Sub
Sub Button2()
Dim fs As String
With Application.FileDialog(msoFileDialogSaveAs)
.Show
If .SelectedItems.Count = 1 Then fs = .SelectedItems(1) Else MsgBox "請輸入存檔檔名": Exit Sub
Sheets("test2").Copy
ActiveWorkbook.SaveAs fs
End With
End Sub
Sub Button3()
Sheets("Sheet3").[A1:C1] = Array("name", "student", "sex")
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/)