冥誓 2022-04-15 15:19 采纳率: 50%
浏览 76
已结题

VB.net二进制文件读写操作

以下是我在vb6.0中将excel中单元格区域的数据存入二进制文件的代码,在vb.net中无法使用open 文件名 for binary as 文件号,该怎么处理?

Private Sub Form_Load()
Dim mc, cs, sjk, dth As String
Me.Hide
With xlapp.ActiveWorkbook.Sheets("线路要素")
mc = .[b1].Text '线路名称
cs = .[c4:c17]
sjk = .Range("e4:v" & .UsedRange.Rows.Count)
End With
If mc = "" Then MsgBox "请输入线路名称!", 64, "AutoRBC": GoTo 100
With Me.CommonDialog1
.InitDir = App.Path
.FileName = mc
.Filter = "数据库文件(.qc)|.qc"
.ShowSave
dth = .FileName
End With
If Right(dth, 2) = "qc" Then
On Error Resume Next
Kill dth
On Error GoTo 0
Open dth For Binary As #1
Put #1, , mc
Put #1, , cs
Put #1, , sjk
Close #1
End If
100
Unload Form4
End Sub

  • 写回答

1条回答 默认 最新

    报告相同问题?

    问题事件

    • 系统已结题 5月6日
    • 已采纳回答 4月28日
    • 创建了问题 4月15日

    悬赏问题

    • ¥15 我需要在PC端 开两个抖店工作台客户端.(语言-java)
    • ¥15 有没有哪位厉害的人可以用C#可视化呀
    • ¥15 可以帮我看看代码哪里错了吗
    • ¥15 设计一个成绩管理系统
    • ¥15 PCL注册的选点等函数如何取消注册
    • ¥15 问一下各位,为什么我用蓝牙直接发送模拟输入的数据,接收端显示乱码呢,米思齐软件上usb串口显示正常的字符串呢?
    • ¥15 Python爬虫程序
    • ¥15 crypto 这种的应该怎么找flag?
    • ¥15 代码已写好,求帮我指出错误,有偿!
    • ¥15 matlab+波形匹配算法