MSCBSC 移動通信論壇
搜索
登錄注冊
網(wǎng)絡(luò)優(yōu)化工程師招聘專欄 4G/LTE通信工程師最新職位列表 通信實習(xí)生/應(yīng)屆生招聘職位

  • 閱讀：2798
  • 回復(fù)：2
 求個讀取EXCEL里的內(nèi)容生成WORD里對應(yīng)的位置的宏
艾瑞八滴
初級會員
鎵嬫満鍙風(fēng)爜宸查獙璇? style=


 發(fā)短消息    關(guān)注Ta 

積分 315
帖子 89
威望 104784 個
禮品券 5 個
專家指數(shù) -130
注冊 2013-6-6
專業(yè)方向  TD-LTE
回答問題數(shù) 0
回答被采納數(shù) 0
回答采納率 0%
  大 中 小
發(fā)表于 2014-07-09 16:10:39  只看樓主 
EXCEL里的內(nèi)容：
[attach]312798[/attach]

需要把里邊生成WORD格式的并對應(yīng)至WORD里相應(yīng)的位置
例如

[attach]312799[/attach]
最好生成的文件名可以按自己需要調(diào)整，求求了
或者給我個類似的文件也行，我看看改改
掃碼關(guān)注5G通信官方公眾號,免費領(lǐng)取以下5G精品資料
  • 1、回復(fù)“YD5GAI”免費領(lǐng)取《中國移動：5G網(wǎng)絡(luò)AI應(yīng)用典型場景技術(shù)解決方案白皮書》
  • 2、回復(fù)“5G6G”免費領(lǐng)取《5G_6G毫米波測試技術(shù)白皮書-2022_03-21》
  • 3、回復(fù)“YD6G”免費領(lǐng)取《中國移動：6G至簡無線接入網(wǎng)白皮書》
  • 4、回復(fù)“LTBPS”免費領(lǐng)取《《中國聯(lián)通5G終端白皮書》》
  • 5、回復(fù)“ZGDX”免費領(lǐng)取《中國電信5G NTN技術(shù)白皮書》
  • 6、回復(fù)“TXSB”免費領(lǐng)取《通信設(shè)備安裝工程施工工藝圖解》
  • 7、回復(fù)“YDSL”免費領(lǐng)取《中國移動算力并網(wǎng)白皮書》
  • 8、回復(fù)“5GX3”免費領(lǐng)取《 R16 23501-g60 5G的系統(tǒng)架構(gòu)1》

    • 對本帖內(nèi)容的看法？ 我要點評

     
    [充值威望，立即自動到帳] [VIP貴賓權(quán)限+威望套餐] 另有大量優(yōu)惠贈送活動，請光臨充值中心
    充值擁有大量的威望和最高的下載權(quán)限，下載站內(nèi)資料無憂
    艾瑞八滴
    初級會員
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 315
    帖子 89
    威望 104784 個
    禮品券 5 個
    專家指數(shù) -130
    注冊 2013-6-6
    專業(yè)方向  TD-LTE
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2014-07-11 19:42:00  只看樓主 
    誰有類似的也行啊，借鑒一下

    對本帖內(nèi)容的看法？ 我要點評

     
    [立即成為VIP會員，百萬通信專業(yè)資料立即下載，支付寶、微信付款，簡單、快速！]
    Dick523
    新手上路
    鎵嬫満鍙風(fēng)爜宸查獙璇? style=


     發(fā)短消息    關(guān)注Ta 

    積分 -120
    帖子 6
    威望 2110 個
    禮品券 0 個
    專家指數(shù) -150
    注冊 2014-8-5
    專業(yè)方向  LTE網(wǎng)優(yōu),通信工程
    回答問題數(shù) 0
    回答被采納數(shù) 0
    回答采納率 0%
      大 中 小
    發(fā)表于 2014-08-07 12:32:10 
    另存本表為TXT文件返回
    Sub 另存本表為TXT文件()

    Dim s As String

    Dim FullName As String, rng As Range

    Application.ScreenUpdating = False

    FullName = (ActiveSheet.Name & ".txt")
    '以當(dāng)前表名為TXT文件名

    '
    FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt")
    '以當(dāng)前文件名為TXT文件名

    '
    FullName = Replace(ThisWorkbook.FullName, ".xls", ActiveSheet.Name & ".txt")
    '以文件名&表名為TXT文件名

    Open FullName For Output As #1
    '以讀寫方式打開文件，每次寫內(nèi)容都會覆蓋原先的內(nèi)容


    '參考幫助，fullname為文件全名

    For Each rng In Range("a1").CurrentRegion

    s = s & IIf(s = "", "", "|") & rng.Value

    If rng.Column = Range("a1").CurrentRegion.Columns.Count Then

    Print #1, s & "|"

    '把數(shù)據(jù)寫到文本文件里

    s = ""

    End If

    Next

    Close #1

    '關(guān)閉文件

    Application.ScreenUpdating = True

    MsgBox "數(shù)據(jù)已導(dǎo)入文本"
    End Sub

    對本帖內(nèi)容的看法？ 我要點評

     
    最新通信職位：廣東通信人才網(wǎng) | 北京通信人才網(wǎng) | 上海通信人才網(wǎng) | 南京通信人才網(wǎng) | 西安通信人才網(wǎng) | 重慶通信人才網(wǎng) | 中國通信人才網(wǎng)

    快速回復(fù)主題    
    標(biāo)題
    內(nèi)容
     上傳資料請點左側(cè)【添加附件】

    當(dāng)前時區(qū) GMT+8, 現(xiàn)在時間是 2025-02-02 17:10:13
    渝ICP備11001752號  Copyright @ 2006-2016 mscbsc.com  本站統(tǒng)一服務(wù)郵箱：mscbsc@163.com

    Processed in 0.409096 second(s), 18 queries , Gzip enabled
    TOP
    清除 Cookies - 聯(lián)系我們 - 移動通信網(wǎng) - 移動通信論壇 - 通信招聘網(wǎng) - Archiver