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

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 数据库系统,可以来看看
    • ¥15 yolov5 双模态检测
    • ¥15 gradle项目报错
    • ¥60 有关C#的问题,基础牢固的来
    • ¥15 Python算法设计Seam carving--让图片比例随心缩放
    • ¥15 页面制作,HTML CSS
    • ¥15 通个批处理实现 win7和win10 修改或设置:显示操作系统列表时间为2秒
    • ¥20 报错:Unsupported class file major version 59
    • ¥15 用ASP代码实现跨站脚本攻击
    • ¥50 ABP中怎样接收vue上传的图片