帖子: 8
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-9
最後登錄: 2024-11-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-11-12 10:14 | 只看該作者

[發問] 執行好幾次都沒問題,但忽然今天...

Sub saveas()
ActiveWorkbook.saveas FileName:="C:\Users\Administrator\Google 雲端硬碟\估價單\103年估價單\11月份\" & Format(Range("j5"), "EMMDD") & Range("C6") & (Range("K6") & "-" & Range("J27") & ".xls")
MsgBox "檔案名稱 " & Format(Range("j5"), "EMMDD") & Range("C6") & (Range("K6") & "-" & Range("J27")) & " 另存成功!!"
End Sub

今天執行程式後就跳出

好奇怪喔,已經執行好幾天沒問題了,今天忽然跳這個訊息....:Q :Q :Q
各位高手可以幫我解答一下嗎? 謝謝~

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-11-12 15:44 | 只看該作者

本帖最後由 GBKEE 於 2014-11-12 15:45 編輯

回復 1# carus1009

自行檢查是否有圖示中的錯誤

Sub save_as()
'ActiveWorkbook.saveas Filename:="C:\Users\Administrator\Google 雲端硬碟\估價單\103年估價單\11月份\" & Format(Range("j5"), "EMMDD") & Range("C6") & (Range("K6") & "-" & Range("J27") & ".xls")
MsgBox "C:\Users\Administrator\Google 雲端硬碟\估價單\103年估價單\11月份\" & Format(Range("j5"), "EMMDD") & Range("C6") & (Range("K6") & "-" & Range("J27") & ".xls")
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

carus1009

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-9
最後登錄: 2024-11-27

3^#

發表於 2014-11-12 17:03 | 只看該作者

我檢查過圖示中的錯誤了,我發現所有的資料夾都是唯讀,但我沒辦法關掉唯讀,勾掉還是自己會寫回去,我改成最基本的C:\ 或D:\ 也是跳出同樣的訊息...這是我的電腦中毒了?

但我不跑程式一樣可以用手動存檔啊....

TOP

carus1009

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-9
最後登錄: 2024-11-27

4^#

發表於 2014-11-12 18:16 | 只看該作者

我找到原因了,問題已解決~感謝版主幫忙!!:D

TOP

mmxxxx

中學生 Rank: 2

帖子: 61
主題: 7
精華: 0
積分: 72
點名: 0
作業系統: win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-11-4
最後登錄: 2015-9-16

5^#

發表於 2014-11-13 09:35 | 只看該作者

應是欄位儲存格內容藏有看不到的控制碼所致,
建議先將要使用的欄位trim掉, 但有時不見有效.
這是Excel常遇到的問題.

TOP

carus1009

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-9
最後登錄: 2024-11-27

6^#

發表於 2014-11-13 10:20 | 只看該作者

Sub saveas()
ActiveWorkbook.saveas FileName:="C:\Users\Administrator\Google 雲端硬碟\估價單\103年估價單\11月份\" & Format(Range("j5"), "EMMDD") & Range("C6") & (Range("K6") & "-" & Range("J27") & ".xls")
MsgBox "檔案名稱 " & Format(Range("j5"), "EMMDD") & Range("C6") & (Range("K6") & "-" & Range("J27")) & " 另存成功!!"
End Sub

上個問題因為我的某儲存格和其它的儲存格合併起來的字數太長了,所以超過128字元了....才跑出這樣的問題

不好意思小弟最近才開始學習VBA的程式,還不太熟悉語法的套用

還有個小問題想請教各位先進,我想把上面紅色的部份,改成當前的檔案開啟的路徑不知道該怎麼寫才好,試了好幾種方式都套不進去....

感謝~:)

TOP

carus1009

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2014-11-9
最後登錄: 2024-11-27

7^#

發表於 2014-11-13 10:55 | 只看該作者

Sub test()
aa = ThisWorkbook.Path
Set d1 = Workbooks(aa).Worksheets("估價單-含稅")
Workbooks.Open FileName:="C:\Users\Administrator\Google 雲端硬碟\行程表\開會資料.xls"
Workbooks("開會資料.xls").Activate
Set d3 = Workbooks("開會資料.xls").Worksheets("103年11月份")
d3.Range("a1").Select
Selection.End(xlDown).Select
d3.Range("a" & ActiveCell.Row + 1).Value = d1.Range("j5")
d3.Range("c" & ActiveCell.Row + 1).Value = d1.Range("c6")
d3.Range("d" & ActiveCell.Row + 1).Value = d1.Range("k6")
d3.Range("e" & ActiveCell.Row + 1).Value = 1
d3.Range("f" & ActiveCell.Row + 1).Value = d1.Range("j27")
d3.Range("g" & ActiveCell.Row + 1).Value = d1.Range("c7")
Workbooks("開會資料.xls").Close savechanges:=True
MsgBox ("處理完成")
End Sub

應該是這段才對.SORRY~

TOP