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

vavashop

大大
請問 如果
我是 排序這都還可寫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

GBKEE

回復 1# vavashop

試試看

1. Option Explicit
   
2. Sub EX()
   
3.     Dim Sh As Worksheet, Rng As Range
   
4.     Set Rng = ActiveSheet.Range("A1:v35")   '指定的範圍
   
5.     Set Sh = Sheets.Add         '新增的工作表
   
6.     Rng.AutoFilter 1, "A"       '*** 請修改你的自動篩選 條件 ***
   
7.     With Sh '新增的工作表
   
8.         Rng.Copy .[A1]          '複製 已自動篩選的範圍
   
9.         .UsedRange.CopyPicture  '使用範圍儲存格的螢幕影像複製到剪貼簿
   
10.         With .ChartObjects.Add(1, 1, .UsedRange.Width, .UsedRange.Height)  '新增 圖表
    
11.             .Chart.Paste                                           '貼上 圖片
    
12.             .Chart.Export Filename:="d:\" & Format(Date, "yyyy-mm-dd") & "合計買賣比buy" & ".png"
    
13.         End With
    
14.         
    
15.         'DisplayAlerts 屬性  特定如果巨集在執行時 Microsoft Excel 顯示特定的警告和訊息則為 True。讀/寫 Boolean。
    
16.         Application.DisplayAlerts = False
    
17.         .Delete                 '刪除'新增的工作表
    
18.         Application.DisplayAlerts = True
    
19.     End With
    
20.     Rng.AutoFilter
    
21. End Sub

複製代碼

vavashop

Rng.AutoFilter 1, "A"       '*** 請修改你的自動篩選 條件 ***
    With Sh '新增的工作表
        Rng.Copy .[A1]          '複製 已自動篩選的範圍

大大是改這個??

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

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

vavashop

大大我用好了 感謝

請問如果我要固定抓這網頁的
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

vavashop

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 會卡住

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

請大大指點一下