返回列表 上一主題 發帖

請問檔名存檔問題

gglan9

帖子
8 
主題
3 
精華
0 
積分
11 
點名
0  
作業系統
vista 
軟體版本
1 
閱讀權限
10 
註冊時間
2011-8-11 
最後登錄
2011-8-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-11 23:42 | 只看該作者

請問檔名存檔問題

本帖最後由 gglan9 於 2011-8-12 12:24 編輯

請問檔名存檔問題
如要以工作表中的資料複製到新的工作薄後
要以原工作表中的某個儲存格裡的文字為檔案名稱並存成副檔名為prn檔

例:sheet1  儲存格為A1
目錄:c\
檔名為A1
副檔名為prn

謝謝
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-8-13 19:57 | 只看該作者
Sub yy()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\" & [a1] & ".prn"
ActiveWorkbook.Close True
End Sub

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
3#
發表於 2011-8-14 00:39 | 只看該作者
如果內容是文字格式
ActiveWorkbook.SaveAs Filename:="C:\" & [a1] & ".prn", FileFormat:=xlText
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

gglan9

帖子
8 
主題
3 
精華
0 
積分
11 
點名
0  
作業系統
vista 
軟體版本
1 
閱讀權限
10 
註冊時間
2011-8-11 
最後登錄
2011-8-23 
4#
發表於 2011-8-14 05:00 | 只看該作者
謝謝兩位 解決了問題

TOP

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
5#
發表於 2011-8-29 09:42 | 只看該作者
日前學了用下面的方法, 原來有更簡單的語法, 長知識了~~~

'Set MyBook = ThisWorkbook
'    Application.Workbooks.Add
'    Set NewBook = ActiveWorkbook
'    MyBook.Sheets(Ex).Copy Before:=NewBook.Sheets(1)
'    Application.DisplayAlerts = False
'    NewBook.SaveAs Filename:=fname3
'    NewBook.Close SaveChanges:=False

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題