• <cite id="uwv89"></cite>
      1. 亚洲综合小综合中文字幕,国产久爱免费精品视频,精品国产品香蕉在线,国产午夜精品在人线播放,精品一二三四区在线观看,国产成人无码免费看视频软件 ,色欲久久人妻内射,午夜在线观看成人av
        cetee
        級別: 略有小成
        精華主題: 0
        發帖數量: 74 個
        工控威望: 219 點
        下載積分: 10229 分
        在線時間: 593(小時)
        注冊時間: 2010-08-05
        最后登錄: 2025-08-29
        查看cetee的 主題 / 回貼
        樓主  發表于: 2018-09-29 12:08
        希望各位大俠幫幫忙。
        vb如何把文本框中的數據保存到excel,不能覆蓋,而是能保存到下一行,不影響前幾行保存的數據.
        alian9631
        電控編程\設計
        級別: 略有小成
        精華主題: 0
        發帖數量: 95 個
        工控威望: 429 點
        下載積分: 6274 分
        在線時間: 106(小時)
        注冊時間: 2015-07-08
        最后登錄: 2025-08-29
        查看alian9631的 主題 / 回貼
        1樓  發表于: 2018-10-04 08:57
        這個不難呀,但一兩句話也說不清楚!
        zhaoxg
        級別: 網絡英雄
        精華主題: 0
        發帖數量: 506 個
        工控威望: 10679 點
        下載積分: 10149 分
        在線時間: 346(小時)
        注冊時間: 2016-05-07
        最后登錄: 2025-08-24
        查看zhaoxg的 主題 / 回貼
        2樓  發表于: 2018-10-07 10:52
        網上搜下找一個操作軟件包試試吧
        cetee
        級別: 略有小成
        精華主題: 0
        發帖數量: 74 個
        工控威望: 219 點
        下載積分: 10229 分
        在線時間: 593(小時)
        注冊時間: 2010-08-05
        最后登錄: 2025-08-29
        查看cetee的 主題 / 回貼
        3樓  發表于: 2018-10-11 10:32
        各位樓主能發個列子嗎?這是小弟寫的。但是 不 能操作。請 樓主指點。謝謝。。

        Imports excel = Microsoft.Office.Interop.Excel

        Imports System.IO
        Public Class Form1
            Private Sub Button1_Click(sender As Object, e As EventArgs)

            End Sub
            Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            End Sub
            Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
                Dim fileTest As String = "c:\Temp\ExcelTest\test.xlsx"
                If File.Exists(fileTest) Then
                    File.Delete(fileTest)
                End If

                Dim oexcel As Object
                oexcel = CreateObject("excel.Application")
                Dim obook As excel.Workbook
                Dim osheet As excel.Worksheet

                obook = oexcel.Workbooks.Add
                osheet = oexcel.Worksheets(1)

                osheet.Name = "test name"
                osheet.Range("1,1").Value = "button 1"
                obook.SaveAs(fileTest)
                obook.Close()
                obook = Nothing
                oexcel.Quit()
                oexcel = Nothing
            End Sub
        End Class
        guolibin
        auto_glb@qq.com
        級別: VIP會員
        精華主題: 1 篇
        發帖數量: 650 個
        工控威望: 1046 點
        下載積分: 5404 分
        在線時間: 299(小時)
        注冊時間: 2008-05-03
        最后登錄: 2025-08-28
        查看guolibin的 主題 / 回貼
        4樓  發表于: 2018-10-11 12:30
        網上有VBA的例子
        cetee
        級別: 略有小成
        精華主題: 0
        發帖數量: 74 個
        工控威望: 219 點
        下載積分: 10229 分
        在線時間: 593(小時)
        注冊時間: 2010-08-05
        最后登錄: 2025-08-29
        查看cetee的 主題 / 回貼
        5樓  發表于: 2018-10-11 21:15
        能發個連接嗎?

        主站蜘蛛池模板: 亚洲AV国产福利精品在现观看| 成人亚欧欧美激情在线观看 | 亚洲av日韩av一区久久| 久久精品激情亚洲一二区| 精品亚洲精品日韩精品| 桃花岛亚洲成在人线AV| 国产午夜精品久久精品电影| 久久亚洲精品成人av无| 四川丰满少妇无套内谢| 国产精品人成视频免| 日本韩国日韩少妇熟女少妇 | 亚洲春色在线视频| 在线观看AV永久免费| 最新中文字幕av无码专区不| 九九热在线免费视频精品| 免费无码成人AV片在线| 亚洲国产欧美在线人成AAAA| 中文字幕乱码人妻综合二区三区 | 久久综合伊人77777| 国产午夜精品福利视频| 老师破女学生处特级毛ooo片| 成人又黄又爽又色的视频| 狠狠色丁香婷婷综合尤物| 国产亚洲另类无码专区| 精品国产精品中文字幕| 强奷漂亮少妇高潮伦理| 天天摸夜夜摸夜夜狠狠添| 精品国产精品午夜福利| 亚洲精品人成网线在播放VA| 国产视频最新| 久久三级中文欧大战字幕| 唐人社视频呦一区二区| 中文字幕无码免费不卡视频| 国产日韩一区二区在线| 久久综合国产精品一区二区| 18国产午夜福利一二区| 国产乱子伦视频在线播放| 色综合久久中文综合久久激情| 国产精品熟女一区二区不卡| 午夜福利精品国产二区| 亚洲一区二区三区|