返回列表 上一主題 發帖

[發問] 如何在excel中以VBA另存剪貼簿的資料?

bgtsai

帖子
3 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2010-11-30 
最後登錄
2020-11-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-5-1 10:13 | 只看該作者

[發問] 如何在excel中以VBA另存剪貼簿的資料?

如何在excel中以VBA另存剪貼簿的資料(txt即可，如果能存成任意副檔名更好，方便其他程式讀取)，然後excel還要留在原來的檔案，因為還要繼續編輯

原想說可以開個新檔另存就好，但是卻發現已經離開原來的檔案，不利繼續編輯

不知道有沒有甚麼比較好的方法
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

bgtsai

帖子
3 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2010-11-30 
最後登錄
2020-11-20 
3#
發表於 2012-5-1 20:17 | 只看該作者
感謝Hsieh的回覆，不過該工具其實與我的需求剛好相反 XD
我目前是用下面的方法達成目的
  1. Sub 選取另存txt()
  2. '
  3. ' 選取區域另存為txt
  4. '

  6. '
  7.     Application.ScreenUpdating = False
  8.     Range("A1").Select
  9.     Selection.Copy
  10.     Workbooks.Add
  11.     ActiveSheet.Paste
  12.     Application.DisplayAlerts = False
  13.     ActiveWorkbook.SaveAs Filename:="C:\temp.txt", FileFormat:=xlUnicodeText, _
  14.     CreateBackup:=False
  15.     ActiveWorkbook.Save
  16.     ActiveWindow.Close
  17.     Application.DisplayAlerts = True
  18. End Sub
複製代碼
我個人是覺得繞了一大圈，不知是否有比較優雅的方法?
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-5-1 10:43 | 只看該作者
回復 1# bgtsai


    Clipboard - 存取剪貼簿
學海無涯_不恥下問

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題