返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2011-6-13 17:25 | 顯示全部帖子
回復 1# vpower


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

TOP

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

高中生Rank: 3Rank: 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-14 08:02 | 顯示全部帖子
大大您好,不太清楚您的意思,TextBox是自己新增一個可以輸入的空間棒那種嗎?還是?
還是說一個是存 ...
vpower 發表於 2011-6-13 23:14



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

TOP

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
3#
發表於 2011-6-14 08:41 | 顯示全部帖子
本帖最後由 mark15jill 於 2011-6-14 08:42 編輯

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

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


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

  3. '此區為存檔功能的程式碼

  5.     Dim Sh As Object

  7.     On Error Resume Next
  8. Application.ScreenUpdating = False
  9.     Set Sh = ThisWorkbook.Sheets(1)

  11.    
  12.     With Workbooks.Add(xlWBATWorksheet)
  13.           Sheets("sheet1").Select
  14.           Sheets("sheet1").Name = TextBox1
  15.           Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
  16.             
  17.            Application.ScreenUpdating = True
  18.         If OptionButton6.Value = True Then   '這是我另外控制的部分(如果選項6= 核選 則執行下列程式碼  否則 執行 else 下面的程式碼)
  19.          .SaveAs ThisWorkbook.Path & "\" & 變 & ".xls"  '此行為 將textbox1的名稱儲存成檔案及 活頁簿名稱 並將其轉換成2003版本
  20.          .SaveAs ThisWorkbook.Path & "\" & 變  '如果會出現那個畫面  把這行移除
  21.         
  22.         Else
  23.          .SaveAs ThisWorkbook.Path & "\" & TextBox1 & ".xls" '此行為 將textbox1的名稱儲存成檔案及 活頁簿名稱 並將其轉換成2003版本
  24.          .SaveAs ThisWorkbook.Path & "\" & TextBox1 '如果會出現那個畫面  把這行移除
  25.         End If
  26.         .Close 0

  28.     End With

  30. End Sub
複製代碼

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題