標題:
[發問]
暫先不解決了,請移除,謝
[打印本頁]
作者:
vpower
時間:
2011-6-13 16:56
標題:
暫先不解決了,請移除,謝
提示:
作者帳號被禁止或禁止訪問
作者:
mark15jill
時間:
2011-6-13 17:25
回復
1#
vpower
.SaveAs ThisWorkbook.Path & "\" & TextBox1 & ".xls" '此行為 將textbox1的名稱儲存成檔案及 活頁簿名稱 並將其轉換成2003版本
.SaveAs ThisWorkbook.Path & "\" & TextBox1 '此行為 為office 2007預設格式型態(.xlsx)
作者:
Hsieh
時間:
2011-6-13 19:58
ActiveWorkbook.RemovePersonalInformation = False
作者:
vpower
時間:
2011-6-13 23:14
提示:
作者帳號被禁止或禁止訪問
作者:
mark15jill
時間:
2011-6-14 08:02
大大您好,不太清楚您的意思,TextBox是自己新增一個可以輸入的空間棒那種嗎?還是?
還是說一個是存 ...
vpower 發表於 2011-6-13 23:14
這行是說 將檔案名稱(就是 textbox的內容)儲存成 2003版本(.xls) 或2007版本(.xlsx) 方法是由 H版大所提供 )
或者 樓主也可以用H版大貼的那行試驗
作者:
vpower
時間:
2011-6-14 08:28
提示:
作者帳號被禁止或禁止訪問
作者:
mark15jill
時間:
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
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
