返回列表 上一主題 發帖

sheet 存檔案 檔案抓sheet 的問題

CYC

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE 2007 
閱讀權限
10 
註冊時間
2011-8-1 
最後登錄
2011-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

CYC

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE 2007 
閱讀權限
10 
註冊時間
2011-8-1 
最後登錄
2011-8-10 
3#
發表於 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欄位一樣要填入(如圖)

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

   

book2.rar (3.36 KB)

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題