Преобразование Excel в текст в VB

Question

Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\rshuell\Desktop\My_Excel_Files\"
sPath = "C:\Users\rshuell\Desktop\My_Excel_Files\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
For Each wS In wB.Sheets
wS.SaveAs sPath & wS.Name, xlCSV
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub

Мне трудно сослаться на ссылку "Рабочая книга" для Excel, я намерен сделать очень маленькую вкладку листа Excel, разделенную на текстовый файл, который создается, но имя файла называется листом ExcelМне просто нужно переименовать его в текстовый файл.Как я уже говорил, это не такая уж большая проблема, которую я не могу выяснить, «Рабочая книга» или «Активная рабочая книга», которую я постоянно вижу в примере кода, который я нахожу и пытаюсь найти ссылку на Microsoft.Excel. Я попытался добавитьмой проект не работает, чтобы покончить с ошибками в коде.Любая помощь будет принята с благодарностью.

отредактировано

Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\rshuell\Desktop\My_Excel_Files\"
sPath = "C:\Users\rshuell\Desktop\My_Excel_Files\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
For Each wS In wB.Sheets
wS.SaveAs sPath & wS.Name, xlCSV
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub

Answer 1

Вы должны установить строковую переменную path равной значению в вашем коде.Вы должны * Dim и Set переменная ResultWB

Могут быть другие проблемы.