Dim fso, f As Object
Dim a As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\1.htm", 1)
a = f.readall
MsgBox a
f.Close
Set f = Nothing
Set fso = Nothing
Dim a As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\1.htm", 1)
a = f.readall
MsgBox a
f.Close
Set f = Nothing
Set fso = Nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货