標題: 請問如何存檔 [打印本頁]

---

作者: kimo5566    時間: 2011-5-1 21:59     標題: 請問如何存檔

最近有貼別人寫的excel 裡面寫的vba的程式
但是很怪的是貼了之後
都可以跑
但是存完檔之後
下次在開的時候發現程式碼又不見了
大大告知一下為什麼都存不起來
感謝

---

作者: chin15    時間: 2011-5-1 22:14

靈異事件？
也許貼的位置不對吧。

---

作者: luhpro    時間: 2011-5-1 22:29

回復 1# kimo5566

照看很有可能是存檔類型不對,
試試用 另存新檔
存檔類型選 : Microsoft Excel 活頁簿 (*.xls)
不要存其他不能附帶公式的檔案類型.

---

作者: kimo5566    時間: 2011-5-2 01:08

我的存檔類型如下
Microsoft Office Excel 工作表

---

作者: GBKEE    時間: 2011-5-2 07:06

回復 4# kimo5566
可以看看 你的VBA程式嗎?

---

作者: mark15jill    時間: 2011-5-2 11:28

樓主 你存的活頁簿類型 要 啟用巨集的活頁簿 這種類型  0.0
不然他一概會把巨集刪除...
或者是  可以把該vba程式 匯出(程式碼那邊 選該程式 右鍵 匯出)

---

作者: kimo5566    時間: 2011-5-2 11:33

回復 5# GBKEE

板主你好
這是我要貼的程式碼

    Sub SyncData()

    On Error GoTo ErrorHandler
   
    Dim i As Integer
    Dim j As Integer
   
    If Not ((Sheet1.Cells(10, 3) = "13:44:59") Or (Sheet1.Cells(10, 3) = "13:45:00")) Then
   
        i = Round(DateDiff("s", TimeValue("09:00:00"), TimeValue(Sheet1.Cells(3, 3))) / 60 / 5, 0) + 1
        Do While (Sheet3.Cells(i, 1) <> "")
        
            If (Sheet3.Cells(i, 1) = Mid(Sheet1.Cells(3, 3), 1, 5)) Then
                Sheet3.Cells(i, 2) = Sheet1.Cells(20, 3)
                Sheet3.Cells(i, 3) = Sheet1.Cells(7, 3)
                Exit Do
            End If
            
            i = i + 1
        Loop
        
        i = Round(DateDiff("s", TimeValue("09:00:00"), TimeValue(Sheet1.Cells(3, 3))) / 60, 0) + 1
        j = i
        Do While (Sheet3.Cells(i, 6) <> "")
        
            If (Sheet3.Cells(i, 6) = Mid(Sheet1.Cells(3, 3), 1, 5)) Then
                Sheet3.Cells(i, 7) = Sheet1.Cells(4, 3)
                Sheet3.Cells(i, 8) = Sheet1.Cells(11, 3)
                Exit Do
            End If
            
            i = i + 1
        Loop
        
        If (InStr(5, Sheet1.Cells(10, 3), ":30") > 0) Then
            ActiveWorkbook.Save
        End If
   
    End If
   
    Exit Sub
   
ErrorHandler:
   
    'MsgBox "eMail to E.Y. ~ " + Err.Description
   
End Sub


Sub EraseData()
   
    Sheet3.Activate
   
    Sheet3.Range("B2:C55").Select
    Selection.ClearContents
   
    Sheet3.Range("G2:H271").Select
    Selection.ClearContents
   
    Sheet1.Activate

    ActiveWorkbook.Save

End Sub

---

作者: kimo5566    時間: 2011-5-2 11:37

回復 6# mark15jill


   感謝
  已存檔成功
  原來要存成 Microsoft Office Excel 啟用巨集的工作表
  才能存檔

---

作者: mark15jill    時間: 2011-5-2 11:51

本帖最後由 mark15jill 於 2011-5-2 12:08 編輯

如果怕忘記存 或者是被覆蓋的話
也是可以將該程式 獨立出來
這樣以後可以統合...
PS.我就是那樣子... 這樣如果要複合式的話 就可以把程式 東湊西湊了...
     如 程式1 自動 活頁簿存在與否的判斷 (刪除與否)
            程式2 自動 活頁簿內關鍵字搜尋
            程式3 自動 活頁簿內關鍵字替換
            程式4 自動 活頁簿內欄、列格式調整
            程式5 自動 活頁簿內對照位置
            程式6 自動 自動儲存
這樣把不同功能的單一程式， 統合的話，以後如果有需要上述6種功能，只要改幾個關鍵的地方，就可以很快速作業，不用再打一次程式了+.+

---

作者: kimo5566    時間: 2011-5-3 00:08

回復 9# mark15jill


    感謝分享
   謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)