国产蝌蚪视频在线观看_亚洲亚色_日批网站免费_亚拍一区_69网站_九热精品_最新中文在线视频_欧美视频日韩视频_国内精品二区_天堂资源站_av综合一区_国产精品久免费的黄网站_四虎免费在线观看_少妇做爰奶水狂喷视频_野花视频韩国免费观看3_久久国产精品亚洲人一区二区三区_国产日产精品_国产精品毛片_亚洲精品久久草草起碰_国产偷国产偷亚洲综合av_两个人日本WWW免费版_91麻豆视频_亚欧在线观看视频_久久久99免费_久久精品视频12_麻豆视频播放_日本高清WWW午色夜COM_公和我做好爽添厨房_成人午夜剧场在线观看_gay无套ⅹxxoo_在线观看成人福利

cetee
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 0 個(gè)
工控威望: 219 點(diǎn)
下載積分: 10229 分
在線時(shí)間: 593(小時(shí))
注冊(cè)時(shí)間: 2010-08-05
最后登錄: 2025-09-12
查看cetee的 主題 / 回貼
樓主  發(fā)表于: 2018-09-29 12:08
希望各位大俠幫幫忙。
vb如何把文本框中的數(shù)據(jù)保存到excel,不能覆蓋,而是能保存到下一行,不影響前幾行保存的數(shù)據(jù).
alian9631
電控編程\設(shè)計(jì)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 0 個(gè)
工控威望: 429 點(diǎn)
下載積分: 6304 分
在線時(shí)間: 106(小時(shí))
注冊(cè)時(shí)間: 2015-07-08
最后登錄: 2025-09-11
查看alian9631的 主題 / 回貼
1樓  發(fā)表于: 2018-10-04 08:57
這個(gè)不難呀,但一兩句話也說(shuō)不清楚!
zhaoxg
級(jí)別: 網(wǎng)絡(luò)英雄
精華主題: 0
發(fā)帖數(shù)量: 0 個(gè)
工控威望: 10679 點(diǎn)
下載積分: 10209 分
在線時(shí)間: 346(小時(shí))
注冊(cè)時(shí)間: 2016-05-07
最后登錄: 2025-09-08
查看zhaoxg的 主題 / 回貼
2樓  發(fā)表于: 2018-10-07 10:52
網(wǎng)上搜下找一個(gè)操作軟件包試試吧
cetee
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 0 個(gè)
工控威望: 219 點(diǎn)
下載積分: 10229 分
在線時(shí)間: 593(小時(shí))
注冊(cè)時(shí)間: 2010-08-05
最后登錄: 2025-09-12
查看cetee的 主題 / 回貼
3樓  發(fā)表于: 2018-10-11 10:32
各位樓主能發(fā)個(gè)列子嗎?這是小弟寫(xiě)的。但是 不 能操作。請(qǐng) 樓主指點(diǎn)。謝謝。。

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
級(jí)別: VIP會(huì)員
精華主題: 1 篇
發(fā)帖數(shù)量: 441 個(gè)
工控威望: 1046 點(diǎn)
下載積分: 5404 分
在線時(shí)間: 299(小時(shí))
注冊(cè)時(shí)間: 2008-05-03
最后登錄: 2025-09-14
查看guolibin的 主題 / 回貼
4樓  發(fā)表于: 2018-10-11 12:30
網(wǎng)上有VBA的例子
cetee
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 0 個(gè)
工控威望: 219 點(diǎn)
下載積分: 10229 分
在線時(shí)間: 593(小時(shí))
注冊(cè)時(shí)間: 2010-08-05
最后登錄: 2025-09-12
查看cetee的 主題 / 回貼
5樓  發(fā)表于: 2018-10-11 21:15
能發(fā)個(gè)連接嗎?

通海县| 石棉县| 洪江市| 邵东县| 剑川县| 澜沧| 西安市| 白水县| 十堰市| 苍山县| 汝南县| 武夷山市| 铜川市| 礼泉县| 乐东| 夏河县| 深泽县| 吕梁市| 泊头市| 和政县| 灵山县| 诸暨市| 武山县| 慈利县| 海城市| 剑川县| 甘谷县| 金华市| 池州市| 汨罗市| 盈江县| 浑源县| 宁安市| 环江| 乐亭县| 海宁市| 五大连池市| 土默特左旗| 特克斯县| 香港 | 平定县|