返回列表 上一主題 發帖

[發問] EXCEL班表程式自動轉換WORD

d82625348

帖子
3 
主題
2 
精華
0 
積分
9 
點名
0  
作業系統
windows 10 
軟體版本
2313156 
閱讀權限
10 
註冊時間
2016-12-19 
最後登錄
2024-9-25 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-2-23 11:15 | 只看該作者

[發問] EXCEL班表程式自動轉換WORD

各位大大好，詢問各位如何將EXCEL利用VBA，如附件一、附件二，利用附件一格式轉換成WORD附件二那樣，抓取日期後，顯示每次早班巡查人員，不然公司每次都要一直打，人數多、班次多還是一次挺綑擾的事，煩請各位大大幫忙解答，謝謝大家!

EXCEL.rar (17 KB)

收藏 分享

nolookyou

帖子
65 
主題
18 
精華
0 
積分
71 
點名
0  
作業系統
WINXP、7、10、SERVER2012 
軟體版本
Office 2010-2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-27 
最後登錄
2021-10-7 
2#
發表於 2018-5-23 18:04 | 只看該作者
回復 1# d82625348


    版大晚安，讓小弟獻醜幫您一下~
    我發現站上需要EXCEL內的資料轉成WORD的需求偶爾還是有，
    但是查站上文章或GOOGLE上面對於EXCEL內的資料轉成WORD資料，
    程式碼寫的內容，有些寫的很片段，有些寫的方法有點迂迴，

    所以小弟獻上自行研究最簡單與直覺的寫法給未來有需要的大家，
    以下是以此題為範例的寫法，按下[資料寫入WORD]按鈕，便能將EXCEL內的資料轉寫到WORD裡面：
   
   

   
   
    附件一EXCEL檔.rar (19.2 KB)
  1. Private Sub CommandButton1_Click()
  2. Dim WDApp As Object
  3. Dim WDDoc As Object
  4. Dim WDSelect As Object
  5. Dim i As Integer
  6. Dim j As Integer
  7. Dim date_str As String
  8. Dim name_str As String

  10. Set WDApp = CreateObject("Word.Application")
  11. Set WDDoc = WDApp.Documents.Add
  12. Set WDSelect = WDApp.Selection

  14. WDApp.Visible = True

  16. With WDSelect
  17.     For i = 2 To 20 Step 3
  18.    
  19.         date_str = Worksheets("工作表1").Cells(1, i)
  20.         .TypeText Text:=date_str
  21.         .TypeParagraph
  22.    
  23.         name_str = ""
  24.         For j = 2 To 8
  25.             If Worksheets("工作表1").Cells(j, i) = "巡" Then name_str = name_str & Worksheets("工作表1").Cells(j, 1) & "、"
  26.         Next j
  27.         
  28.         .TypeText Text:=Left(name_str, Len(name_str) - 1)
  29.         .TypeParagraph
  30.         .TypeParagraph
  31.     Next i
  32. End With

  34. End Sub
複製代碼
有錯誤或有更精進寫法，再麻煩站上前輩與各路大神不吝指教，來造福未來有需要的網友們。

TOP

d82625348

帖子
3 
主題
2 
精華
0 
積分
9 
點名
0  
作業系統
windows 10 
軟體版本
2313156 
閱讀權限
10 
註冊時間
2016-12-19 
最後登錄
2024-9-25 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2018-6-9 18:53 | 只看該作者
太實用了~謝謝nolookyou提供!

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題