123
返回列表 上一主題 發帖

[發問] 檔案中的兩個Sheet 複製到新的檔案問題

jackyliu

帖子
72 
主題
13 
精華
0 
積分
90 
點名
0  
作業系統
windows xp 
軟體版本
office 2000 
閱讀權限
20 
性別
女 
註冊時間
2011-2-14 
最後登錄
2024-10-13 
21# 跳轉到 »
發表於 2013-8-29 14:50 | 只看該作者
回復 4# Hsieh

有辦法將execl 的四個sheet 複製另存成圖檔嗎?
有解嗎?

TOP

jackyliu

帖子
72 
主題
13 
精華
0 
積分
90 
點名
0  
作業系統
windows xp 
軟體版本
office 2000 
閱讀權限
20 
性別
女 
註冊時間
2011-2-14 
最後登錄
2024-10-13 
22#
發表於 2013-8-29 21:22 | 只看該作者
回復 6# GBKEE


    有辦法將execl 的四個sheet 複製另存成圖檔嗎?
Mail自動化有解嗎?

最終結果如圖片所示: 將execl檔案裡的四個sheet 複製另存成圖檔,並mail 出去...
附件就是outlook 寄出畫面，希望大家能夠幫忙和分享,感謝!

0829.JPG (125.46 KB)

最終結果

0829.JPG

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
276  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
23#
發表於 2013-8-29 23:33 | 只看該作者
回復 21# jackyliu
工作表要存成圖檔?
這要看資料範圍大小而定，若無法完整顯示資料區域那將無法取得完整畫面
學海無涯_不恥下問

TOP

jackyliu

帖子
72 
主題
13 
精華
0 
積分
90 
點名
0  
作業系統
windows xp 
軟體版本
office 2000 
閱讀權限
20 
性別
女 
註冊時間
2011-2-14 
最後登錄
2024-10-13 
24#
發表於 2013-8-30 10:33 | 只看該作者
回復 23# Hsieh

主要是將execl檔案裡的四個sheet 內容, 用Outlook  mail方式寄出(自動化)
目前是人工手動開啟execl檔案 , 將四個sheet 內容 用 cut圖軟體, 複製貼到 Outlook  mail方式寄出,
希望 能有辦法,用vba處理.

這要看資料範圍大小而定，若無法完整顯示資料區域那將無法取得完整畫面
回覆:  1. sheet+範圍 複製貼到 Outlook  mail方式寄出
          2. 直接將四個sheet , 複製貼到 Outlook  mail方式寄出
以上兩種作法,哪個做的出來?

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
25#
發表於 2013-8-30 11:29 | 只看該作者
回復 21# jackyliu
  1. Sub RangeToPicture()
  2.   Dim rngSrc As Range
  3.    
  4.   With ActiveSheet
  5.     Set rngSrc = .UsedRange
  6.    
  7.     rngSrc.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
  8.     With .ChartObjects.Add(Left:=rngSrc.Left, Top:=rngSrc.Top, Width:=rngSrc.Width, Height:=rngSrc.Height)
  9.       .Chart.Paste
  10.       .Chart.Export "C:\pic1.jpg"
  11.       .Delete
  12.     End With
  13.   End With
  14. End Sub
複製代碼

TOP

jackyliu

帖子
72 
主題
13 
精華
0 
積分
90 
點名
0  
作業系統
windows xp 
軟體版本
office 2000 
閱讀權限
20 
性別
女 
註冊時間
2011-2-14 
最後登錄
2024-10-13 
26#
發表於 2013-8-30 22:51 | 只看該作者
本帖最後由 jackyliu 於 2013-8-30 23:02 編輯

回復 25# stillfish00

原本測試檔案, Run起來沒問題; 後來我將code 轉到其他檔案上(四個sheet裡,共有六個樞紐資料,總共有28MB),
程式跑起來,就出問題,附上相關圖片...


大大: 有其他的方法嗎?能讓我mail出去嗎? 目前我都人工方式,將樞紐資料圈選後,
在到Outlook 操作 選擇性貼上..點陣圖 ,再mail 出去 ~ 能夠自動化嗎?

TOP

        靜思自在 : 甘願做、歡喜受。
123
返回列表 上一主題