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

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 BP神经网络控制倒立摆
  • ¥20 要这个数学建模编程的代码 并且能完整允许出来结果 完整的过程和数据的结果
  • ¥15 html5+css和javascript有人可以帮吗?图片要怎么插入代码里面啊
  • ¥30 Unity接入微信SDK 无法开启摄像头
  • ¥20 有偿 写代码 要用特定的软件anaconda 里的jvpyter 用python3写
  • ¥20 cad图纸,chx-3六轴码垛机器人
  • ¥15 移动摄像头专网需要解vlan
  • ¥20 access多表提取相同字段数据并合并
  • ¥20 基于MSP430f5529的MPU6050驱动,求出欧拉角
  • ¥20 Java-Oj-桌布的计算