![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Office
Lisazz25
这个作者很懒,什么都没留下…
展开
-
Excel SendMail
MsgSubject EmailToEmailCCEmailBCC AttachmentImportancePublic Enum ImportanceLevel High Medium LowEnd EnumFunction SendMessage(Msg As String, Subject As Strin转载 2011-11-25 13:49:49 · 423 阅读 · 0 评论 -
分割【節】Word
Sub SplitSectionsAsDocuments()'' 分文件'' Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer转载 2015-01-09 09:49:34 · 440 阅读 · 0 评论 -
[Excel格式] 設定Excel cell的格式
利用網頁轉出資料到 Excel 上常會遇到想要以文字格式顯示的數字,像是手機號碼、帳號之類的資料,被 Excel 自動轉換成數字格式,於是前面的 0 被省略掉了、帳號變成科學記號了...等等的麻煩,有個方便的方式不會去加入奇奇怪怪的東西到欄位裡面,讓 Excel 不會去判斷成數字,很簡單,只要在 td 裡面加入 style 設定就行了。 mso-number-format:"0" N转载 2015-01-29 10:42:14 · 683 阅读 · 0 评论 -
使用郵件合拼並分存文件資料
前提:先製作完成Word和資料來源的關聯Sub ProduceDoc()'Dim stMedd As String'Dim obMapp As Variant'stMedd = "請選擇分割後申請表目錄:" '選擇目錄'Set obMapp = CreateObject("Shell.Application").BrowseForFolder(0, stMedd, &H1)转载 2015-12-18 13:59:47 · 890 阅读 · 0 评论 -
excel:照片縮圖
建置條件:從?欄有圖片檔名資料,再選擇照片所在目錄對應出每一欄位的實際路徑, 並自動加入圖片在?欄,後再清除圖片檔名,但不知為何第一次加入的照片很糊,需Run二次才OK。Private Sub CommandButton1_Click() Dim stMedd As String stMedd = "請選擇照片來源目錄:" '選擇转载 2015-12-24 16:13:23 · 468 阅读 · 0 评论