vb 中自动获取当前文件夹路径后打开当前文件夹里的Excel 为什么路径·

2017-11-09 03:38:03 1.8k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用 VB 实现 Excel 文件自动化处理在日常办公和数据处理工作中，Excel 文件的操作往往占据了大量时间。使用 Visual Basic（VB）可以实现对 Excel 文件的自动化处理，极大地提高工作效率。以下是详细介绍如何用 VB 代码来自动化处理 Excel 文件。阅读详情

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd /c dir > list.txt",vbHide
Wscript.Sleep 1000

sFile = "list.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = objFSO.OpenTextFile(sFile,1)
Do While Not oFile.AtEndOfStream
strLine = oFile.ReadLine
If InStr(strLine, "\") > 0 Then
strLine = StrReverse(strLine)
p = Mid(strLine,5)
p = StrReverse(p)

py = p & "\sop.xlsx"

'Dim i
'Dim Sum1
'Dim Sum2
'Dim VBExcel
'Dim xlbook
'Dim xlssheet

Set VBExcel = CreateObject("Excel.Application")

Set xlbook = VBExcel.Workbooks.Open(py)
Set xlssheet = xlbook.Worksheets(1)
VBExcel.Visible = False

End If
Loop
oFile.Close

objFSO.DeleteFile sFile
MsgBox("complete!!!")
Set objFSO = Nothing

...全文