返回列表 上一主題 發帖

抓取另一個excel檔資料

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-6-4 
1# 跳轉到 »
發表於 2013-3-17 18:00 | 顯示全部帖子
回復 2# GBKEE

煩請大大 請再次協助
抓取另一個excel檔如 檔名有所變動時，
及不同工作表資料時，應 如何處理。

Sub 轉檔1()　'原方案
    Windows("報表1.xls").Activate
    Range("A2:E24").Select
    Selection.Copy   
    Windows("報表2.xls").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select   
End Sub


Sub 轉檔2() '修改方案

   [G2] = InputBox(" 請輸入  # 檔名 #", " 轉檔： 今日報表")   '手鍵 22

    Windows("報表1.xls").Activate   '原始檔名
    Range("A2:E24").Select
    Selection.Copy
   
    Windows("報表" & [G2] & ".xls").Activate '預 複製檔案 之 檔名可否為 [變數] =G2 儲存格之內容
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select      
End Sub
   
拜託 大大指點一下 感謝!!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題