返回列表 上一主題 發帖

請問 用vba截圖 非篩選狀態可以擷取 但 篩選後不能請問 該怎麼改呢

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-7 13:28 | 顯示全部帖子

請問 用vba截圖 非篩選狀態可以擷取 但 篩選後不能請問 該怎麼改呢

大大
請問 如果
我是 排序這都還可寫vba截圖

如果是數值篩選後
如果需要取23檔標的 跟到w列

請問該怎麼修正下面這一段呢

    Dim Rng As Range
    Set Rng = Range("A1:v35") '指定的範圍
    'Set Rng = Selection      '滑鼠選定的範圍
    Rng.CopyPicture
    With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '新增 圖表
        .Chart.Paste                                           '貼上 圖片
        .Chart.Export FileName:="d:\" & Format(Date, "yyyy-mm-dd") & "合計買賣比buy" & ".png"
        
       ' .Chart.Export FileName = "D:\" & Format(Date, "yyyy-mm-dd") & ".png"     '匯出 圖片"
        
        .Delete                                                '刪除 圖表
    End With
    Selection.AutoFilter

2015-6-7 下午 01-24-01.png (114.9 KB)

2015-6-7 下午 01-24-01.png

收藏 分享

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
2#
發表於 2015-6-7 20:33 | 顯示全部帖子
Rng.AutoFilter 1, "A"       '*** 請修改你的自動篩選 條件 ***
    With Sh '新增的工作表
        Rng.Copy .[A1]          '複製 已自動篩選的範圍

大大是改這個??

我需要的是 橫向到V
列往下抓35個

拍出來的畫面是圖片這樣 有點怪
是哪邊錯了嗎?

2015-06-07合計買賣比buy.png (20.27 KB)

2015-06-07合計買賣比buy.png

TOP

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
3#
發表於 2015-6-7 20:46 | 顯示全部帖子
大大我用好了 感謝

請問如果我要固定抓這網頁的
EXCEL 達人寶典 的檔案 到我的 EXCEL該怎麼抓 我想把 他的檔名當成分頁的名稱即可
我有想過 就是自己在A1增加一個欄位為日期然後把它變成超連結 在抓下來之後再改分頁名稱
不知道大大有比較建議的方式嗎?

http://iwarrant.capital.com.tw/wdataV2/canonical/capital/%E6%AC%8A%E8%AD%89%E9%81%94%E4%BA%BA%E5%AF%B6%E5%85%B82015-06-05.xls  

http://iwarrant.capital.com.tw/warrants/wCanonical.aspx

TOP

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
4#
發表於 2015-6-7 23:45 | 顯示全部帖子
Sub aw2e()


Dim y, m, d, param As String ' 宣告 y, m, d, param 為字串變數

    y = Sheets("上市").Range("B2") ' 西元年
    m = Format(Sheets("上市").Range("B3"), "00") ' 月，使用Format函數強制十位數補0
    d = Format(Sheets("上市").Range("B4"), "00") ' 日，使用Format函數強制十位數補0
    param = (y - 1911) & "/" & m & "/" & d ' 民國年/月/日
   

Range("A1").Select
    ActiveCell.FormulaR1C1 = _
     "http://iwarrant.capital.com.tw/wdataV2/canonical/capital/%E6%AC%8A%E8%AD%89%E9%81%94%E4%BA%BA%E5%AF%B6%E5%85%B8" & y & "-" & m & "-" & d & ".xls"
   
    '下方開始點選a1網址列
    '下載後複製 貼回     Sheets("達人寶典暫存").Select
    '
    '
     Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Cells.Select
   
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Selection.Copy
    Windows("2012-2015月營收(總資料庫2)new大修改20150511.xlsm").Activate
    Sheets("達人寶典暫存").Select
    Cells.Select
    ActiveSheet.Paste
   
    Windows("權證達人寶典" & y & "-" & m & "-" & d & " .xls").Activate
    ActiveWindow.Close
    Application.DisplayAlerts = False  '關閉警示視窗
   

請問一下這一段     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 會卡住

請問是不是哪邊出了問題??

請大大指點一下

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題