• <cite id="uwv89"></cite>
      1. 亚洲综合小综合中文字幕,国产久爱免费精品视频,精品国产品香蕉在线,国产午夜精品在人线播放,精品一二三四区在线观看,国产成人无码免费看视频软件 ,色欲久久人妻内射,午夜在线观看成人av
        cetee
        級別: 略有小成
        精華主題: 0
        發帖數量: 74 個
        工控威望: 219 點
        下載積分: 10229 分
        在線時間: 593(小時)
        注冊時間: 2010-08-05
        最后登錄: 2025-09-02
        查看cetee的 主題 / 回貼
        樓主  發表于: 2018-09-29 12:08
        希望各位大俠幫幫忙。
        vb如何把文本框中的數據保存到excel,不能覆蓋,而是能保存到下一行,不影響前幾行保存的數據.
        alian9631
        電控編程\設計
        級別: 略有小成
        精華主題: 0
        發帖數量: 95 個
        工控威望: 429 點
        下載積分: 6284 分
        在線時間: 106(小時)
        注冊時間: 2015-07-08
        最后登錄: 2025-08-31
        查看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-09-02
        查看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-31
        查看guolibin的 主題 / 回貼
        4樓  發表于: 2018-10-11 12:30
        網上有VBA的例子
        cetee
        級別: 略有小成
        精華主題: 0
        發帖數量: 74 個
        工控威望: 219 點
        下載積分: 10229 分
        在線時間: 593(小時)
        注冊時間: 2010-08-05
        最后登錄: 2025-09-02
        查看cetee的 主題 / 回貼
        5樓  發表于: 2018-10-11 21:15
        能發個連接嗎?

        主站蜘蛛池模板: 国产美女在线观看大长腿| 熟妇的味道hd中文字幕| 精品午夜福利在线视在亚洲| 女高中生强奷系列在线播放| 国产精品中文字幕免费| 国产精品免费视频不卡| 人妻少妇精品视频三区二区| 亚洲一区二区中文av| 自拍视频一区二区三区四区| 日韩中文字幕亚洲精品一| 又色又爽又黄的视频网站 | 国产亚洲精品久久久久久久软件| 亚洲一区二区中文av| 内地自拍三级在线观看| 亚洲最大成人网色| 国产一区二区三区日韩精品| 东京热人妻丝袜无码AV一二三区观| 国产一区二区高清不卡| a级国产乱理伦片在线观看al| 精品国产成人国产在线观看| 草草浮力影院| 中文字幕日韩精品人妻| 日本少妇自慰免费完整版| 亚洲男人第一无码av网站| 亚洲精品区二区三区蜜桃| 亚洲欧美精品一中文字幕| 欧洲无码一区二区三区在线观看| 久久国产乱子精品免费女| 漂亮的保姆hd完整版免费韩国| аⅴ天堂中文在线网| 最新亚洲av日韩av二区| 色偷偷女人的天堂亚洲网| 久久精品丝袜高跟鞋| 日本边添边摸边做边爱| 2020国产欧洲精品网站| 国产AV大陆精品一区二区三区| 色综合视频一区二区三区| 国产精品任我爽爆在线播放6080| 亚洲嫩模一区二区三区| 欧美在线观看www| 国产美女69视频免费观看|