您尚未
登入
註冊
忘記密碼
搜尋
贊助
贊助本站
數位公仔
紀念T恤
紀念馬克杯
廣告
刊登廣告
廣告價格
線上申請刊登
用雅幣刊登
免費刊登
目前客戶
簡訊
簡訊說明
購買金幣
發送簡訊
預約簡訊
發送記錄
好友通訊
罐頭簡訊
論命
數位論命舘
免費排盤工具
葫蘆墩 優生造命
葫蘆墩 八字命書
影音論命(葫蘆墩)
影音占卜(葫蘆墩)
購買金幣
星座分析
孔明神數
周公解夢
星僑線上論命
娛樂
影 像 行 腳
數 位 造 型
數 位 畫 廊
心 情 日 記
公 益 彩 券
送生日蛋糕
俄羅斯方塊
四 川 省
猜 數 字
比 大 小
泡 泡 龍
許 願 池
萬 年 曆
經 期 計 算
體 重 測 量
音 樂 點 播
衛 星 地 圖
時間戳字幕
男女聊天室
求助
論壇守則
會員等級
會員權限
語法教學
常見問題
最新活動
打工賺雅幣
首頁
新版首頁(全頁)
傳統首頁(全頁)
新版首頁(選單)
傳統首頁(選單)
MyChat 數位男女
命理風水
15
星僑五術軟體
4
葫蘆墩命理網
5
命理問答
9
四柱八字
1
紫微斗數
1
姓名學
手面相
易經占卜
1
風水研討
1
擇日&三式
1
西洋占星
無視論塔羅牌
10
修行&武術
1
中醫研討
五術哈啦
1
電腦資訊
13
硬體討論
5
超頻 & 開箱
3
數位生活
2
PDA 討論
手機討論區
軟體推薦
2
軟體討論
6
Apple 討論
1
Unix-like
網路&防毒
2
程式設計
網站架設
4
電腦教學資源
生活休閒
14
休閒哈啦
7
感情世界
2
上班一族
5
國考&法律
7
生活醫學
4
運動體育
1
單車討論
1
釣魚討論
6
旅遊討論
4
天文觀星
3
攝影分享
8
圖片分享
4
數位影視
2
笑話集錦
3
興趣嗜好
13
文學散文
7
繪圖藝術
1
布袋戲
3
動漫畫討論
3
美食天地
6
理財專區
心理測驗
1
汽、機車
3
寵物園地
模型&手工藝
4
花卉園藝
魔術方塊
獨輪車專區
電玩遊戲
13
遊戲歡樂包
4
CS討論
8
Steam
3
MineCraft
2
東方Project
英雄聯盟LOL
1
單機遊戲
2
WebGame
3
線上遊戲1
6
線上遊戲2
5
電視遊樂器
1
掌上型遊戲
2
模擬器遊戲
1
工商服務
6
虛擬城市
7
好康分享
新品販售
二手拍賣
1
租屋&找屋
工商建議區
1
站務專區
10
最新活動
活動成果
數位造型
心情日記
個人圖庫
新人報到練習
論壇問題建議
1
榮會及電子報討論
-最近版區-
-最近瀏覽-
»
程式設計
»
EXCEL VBA 另存新檔的問題
手機版
訂閱
地圖
簡體
您是第
14255
個閱讀者
可列印版
加為IE收藏
收藏主題
上一主題
|
下一主題
jay927
級別:
小人物
x0
x7
分享:
▼
x
0
EXCEL VBA 另存新檔的問題
1.請問要怎樣讓運算完成的EXCEL報表直接自動另存新檔?
2 ..
訪客只能看到部份內容,免費
加入會員
或由臉書
Google
可以看到全部內容
x
0
[樓 主]
From:台灣中華電信 |
Posted:
2006-03-10 17:02 |
circlemap
級別:
小人物
x0
x53
分享:
▲
▼
Option Explicit
Const FolderPath As String = "C:\tmp\"
Sub eee()
Dim strDay As String
Dim strMonth As String
Dim strYear As String
strDay = Day(Now)
strMonth = Month(Now)
strYear = Year(Now)
If Val(strDay) < 10 Then
strDay = "0" & strDay
End If
If Val(strMonth) < 10 Then
strMonth = "0" & strMonth
End If
strYear = Right(strYear, 2)
Application.DisplayAlerts = False
ThisWorkbook.SaveAs (FolderPath & strDay & strMonth & strYear)
Application.DisplayAlerts = True
End Sub
稍微寫了一下 不過 你要有 C:\tmp\ 這個資料夾存在,或者你改
Const FolderPath As String = "C:\tmp\" 這一句成為你要的資料夾
x
0
[1 樓]
From:台灣中華電信 |
Posted:
2006-03-10 17:44 |
jay927
級別:
小人物
x0
x7
分享:
▲
▼
感謝大大!
存檔的部分完成了!
不過另外的問題又出現!
新存的檔案連巨集也一起存進去裡面!
能夠做到新存的檔案裡面只有資料,不把巨集也存進去嗎?
x
0
[2 樓]
From:台灣亞太線上 |
Posted:
2006-03-11 00:49 |
iwinblue
級別:
路人甲
x0
x0
分享:
▲
▼
請問依下這個地方哪裡有錯,我看不出來,請大家幫我依下,感恩
儲存的檔案,叫不出來
以下所以的條件
排序,再另存新檔
Option Explicit
Const FolderPath As String = "C:\tmp\"
Sub eee()
Cells.Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
Range("H7").Select
Columns("I:I").ColumnWidth = 11.75
Columns("I:I").ColumnWidth = 14
Dim strYear As String
Dim strMonth As String
Dim strDay As String
strYear = Year(Now)
strMonth = Month(Now)
strDay = Day(Now)
strYear = Right(strYear, 2)
If Val(strMonth) < 10 Then
strMonth = "0" & strMonth
End If
If Val(strDay) < 10 Then
strDay = "0" & strDay
End If
Application.DisplayAlerts = False
ThisWorkbook.SaveAs (FolderPath & strYear & strMonth & strDay)
Application.DisplayAlerts = True
End Sub
x
0
[3 樓]
From:APNIC |
Posted:
2009-04-23 18:51 |
lmz
級別:
路人甲
x0
x0
分享:
▲
用巨集錄製如下
Cells.Select
Selection.Sort Key1:=Range("C2")、Order1:=xlAscending、Key2:=Range("B2") _
、Order2:=xlAscending、Header:=xlYes、OrderCustom:=1、MatchCase:=False _
、Orientation:=xlTopToBottom、SortMethod:=xlPinYin、DataOption1:= _
xlSortNormal、DataOption2:=xlSortNormal
.
.
Columns("I:I").ColumnWidth = 11.75......此段可以刪除
Columns("I:I").ColumnWidth = 14
If Val(strMonth) < 10 Then
strMonth = "0" & strMonth
End If
可以改為
strMonth = WorksheetFunction.Text(strMonth, "00")
[ 此文章被lmz在2009-06-06 00:17重新編輯 ]
x
0
[4 樓]
From:臺灣數位聯合 |
Posted:
2009-06-06 00:08 |
MyChat 數位男女
»
程式設計
Powered by
PHPWind
v1.3.6
Copyright © 2003-04
PHPWind
Processed in 0.014300 second(s),query:16 Gzip disabled
本站由
瀛睿律師事務所
擔任常年法律顧問 |
免責聲明
|
本網站已依台灣網站內容分級規定處理
|
連絡我們
|
訪客留言