電腦學習園地 :: 痞客邦 ::

' ------------------------------------------------------------
' 依序查已開檔名 - 方法一

    Dim i As Integer
    For i = 1 To Workbooks.Count
        MsgBox i & " " & Workbooks(i).Name
    Next

' ------------------------------------------------------------
' 依序查已開檔名 - 方法二

Dim my Sheet As WorkSheet
For Each mySheet In Worksheets
MsgBox mySheet.Name
Next mySheet

' ------------------------------------------------------------
' 開啟特定檔案 - 方法一
filename = "C:\VBA\test.xls"
Workbooks.Open filename

' ------------------------------------------------------------
' 開啟特定檔案 - 方法二

Dim filename As String
filename = "C:\ExcelVBA\test.xls"
    Dim sn As Object
    Set sn = Excel.Application
    sn.Workbooks.Open filename
    ' sn.Workbooks(filename).Close ' 關閉
    Set sn = Nothing

' ------------------------------------------------------------
' 關閉指定檔案, 不提示訊息
    Dim filename As String
    filename = "Test.xls" ' 這裡只可以給短名,給全名會錯
' 假設 Test.xls 已於開啟狀態
    Application.DisplayAlerts = False ' 關閉警告訊息
    Workbooks(filename).Close
    Application.DisplayAlerts = True ' 再打開警告訊息

' ------------------------------------------------------------
' 關閉所有開啟檔案, 但留下主視窗
Workbooks.Close

' ------------------------------------------------------------
' 關閉 excel 程式

Application.Quit

' ------------------------------------------------------------
' 直接進行存檔

Dim filename As String
filename = "a.xls" ' 只可為短檔名
WorkBooks(filename).Save

' ------------------------------------------------------------
' 指定檔名進行另存新檔，並關閉
' 假設要將 "a.xls" 存成 "C:\b.xls"

Application.DisplayAlerts = False ' 關閉警告訊息
Workbooks("a.xls").SaveAs "C:\b.xls" ' 另存新檔
Workbooks("b.xls").Close ' 關閉 b.xls
Application.DisplayAlerts = True ' 開啟警告訊息

' ------------------------------------------------------------
' 指定當前活頁簿

Dim Caption as String
Caption = "a.xls"
Workbooks(Caption).Activate ' 將視窗切到 a.xls

alyoou 發表在痞客邦留言(0) 人氣()

個人分類：Excel

▲top

Oct 25 Fri 2013 01:20
Excel VBA 取得工作表的最後一欄或最後一列

可以使用ActiveSheet.Rows.Count與ActiveSheet.Columns.Count來取得

最後一列
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

最後一欄

Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column

例:

Worksheets("sheet1").Range("H2").Copy
ActiveSheet.Paste Destination:=Worksheets("sheet1").Range("H3:h" & Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row)

alyoou 發表在痞客邦留言(0) 人氣()

個人分類：Excel

▲top

電腦學習園地

電腦教學園地提供各式電腦教學課程以及電腦教學影片，給網友學習使用電腦教學電腦學習 Word Excel Access Outlook PowerPoint VB Visual Basic VBA 會聲會影威力導演

公告版位

2013年12月 Excel VBA 教學

2013年12月 Outlook 2010 課程教學

2013年12月 Blogger 部落格教學

2013年12月會聲會影 x6 課程教學

2013年11月 Word 文書教學

2013年11月 Excel 課程教學

Outlook 2010 教學課程錄影檔

Firefox 火狐狸瀏覽器相關課程教學

Office 2013 課程研討會內容錄影檔

2013年3月硬體維修課程教學內容

2013年4月 Word 2010課程教學內容

2013年4月 PowerPoint 2010課程教學內容

2013年4月 Excel 2010 課程教學內容

2013年4月部落格課程教學內容

2013年5月硬體維修課程教學內容

2011年9月威力導演課程教學內容

2013年6月會聲會影 X6 課程教學內容

2007年11月 Word2007 課程教學內容

Excel VBA 活頁簿(Workbooks)管理

Excel VBA 取得工作表的最後一欄或最後一列

參觀人氣

文章分類

電腦教學園地提供各式電腦教學課程以及電腦教學影片，給網友學習使用 電腦教學 電腦學習 Word Excel Access Outlook PowerPoint VB Visual Basic VBA 會聲會影 威力導演

公告版位

參觀人氣

文章分類

電腦教學園地提供各式電腦教學課程以及電腦教學影片，給網友學習使用電腦教學電腦學習 Word Excel Access Outlook PowerPoint VB Visual Basic VBA 會聲會影威力導演