暫先不解決了,請移除,謝 - Excel程式區

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	*1^# 跳轉到 »* 倒序看帖** 打印字體大小: tT 發表於 2011-6-13 16:56 \| 只看該作者 [發問] 暫先不解決了,請移除,謝本帖最後由 vpower 於 2011-6-29 16:50 編輯暫先不解決了,請移除,謝收藏分享

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2011-6-13 17:25 | 只看該作者

回復 1# vpower

.SaveAs ThisWorkbook.Path & "\" & TextBox1 & ".xls" '此行為將textbox1的名稱儲存成檔案及活頁簿名稱並將其轉換成2003版本
.SaveAs ThisWorkbook.Path & "\" & TextBox1 '此行為為office 2007預設格式型態(.xlsx)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-6-13 19:58 | 只看該作者

ActiveWorkbook.RemovePersonalInformation = False

學海無涯_不恥下問

TOP

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	4^# 發表於 2011-6-13 23:14 \| 只看該作者本帖最後由 vpower 於 2011-6-29 16:50 編輯暫先不解決了,請移除,謝

	TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2011-6-14 08:02 | 只看該作者

大大您好,不太清楚您的意思,TextBox是自己新增一個可以輸入的空間棒那種嗎?還是?
還是說一個是存 ...
vpower 發表於 2011-6-13 23:14

這行是說將檔案名稱(就是 textbox的內容)儲存成 2003版本(.xls) 或2007版本(.xlsx) 方法是由 H版大所提供 )
或者樓主也可以用H版大貼的那行試驗

TOP

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	6^# 發表於 2011-6-14 08:28 \| 只看該作者本帖最後由 vpower 於 2011-6-29 16:50 編輯暫先不解決了,請移除,謝

	TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2011-6-14 08:41 | 只看該作者

本帖最後由 mark15jill 於 2011-6-14 08:42 編輯

回復 6# vpower
樓主你office版本是說少??
會出現那個訊息通常是 2007 沒有選擇儲存為含有巨集才會有那個畫面
如果存成 2003版本就不會出現(至少我沒出現 = =!! )

這個程式碼需要元件有 TEXTBOX 和 OPTIONBUTTON C0MMANDBUTTON

以下是我的存檔功能按鈕的程式碼看看吧... (資料來源為 Hsieh 板大另經小修改)

Private Sub CommandButton2_Click()
'此區為存檔功能的程式碼
Dim Sh As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Sh = ThisWorkbook.Sheets(1)
With Workbooks.Add(xlWBATWorksheet)
Sheets("sheet1").Select
Sheets("sheet1").Name = TextBox1
Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
Application.ScreenUpdating = True
If OptionButton6.Value = True Then '這是我另外控制的部分(如果選項6= 核選則執行下列程式碼否則執行 else 下面的程式碼)
.SaveAs ThisWorkbook.Path & "\" & 變 & ".xls" '此行為將textbox1的名稱儲存成檔案及活頁簿名稱並將其轉換成2003版本
.SaveAs ThisWorkbook.Path & "\" & 變 '如果會出現那個畫面把這行移除
Else
.SaveAs ThisWorkbook.Path & "\" & TextBox1 & ".xls" '此行為將textbox1的名稱儲存成檔案及活頁簿名稱並將其轉換成2003版本
.SaveAs ThisWorkbook.Path & "\" & TextBox1 '如果會出現那個畫面把這行移除
End If
.Close 0
End With
End Sub

複製代碼

TOP

[發問] 暫先不解決了,請移除,謝

[發問] 暫先不解決了,請移除,謝

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]