Board logo

標題: 請問 用vba截圖 非篩選狀態可以擷取 但 篩選後不能請問 該怎麼改呢 [打印本頁]
作者: vavashop    時間: 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
作者: GBKEE    時間: 2015-6-7 14:44

回復 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    時間: 2015-6-7 20:33

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

大大是改這個??

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

拍出來的畫面是圖片這樣 有點怪
是哪邊錯了嗎?
作者: vavashop    時間: 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
作者: vavashop    時間: 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 會卡住

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

請大大指點一下



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)