Код Excel VBA не работает в Open Office (скопируйте файлы из списка) - PullRequest
Новая
       39

Код Excel VBA не работает в Open Office (скопируйте файлы из списка)

0 голосов
/ 01 апреля 2019

У меня был какой-то превосходный код VBA, и он не работает в Open Office Calc. Код в Excel копирует файлы из списка из другого каталога в другой.

Я не знаю, макропрограммирование в открытом офисе. Я читал о различных декларациях, но это действительно сложно для меня. Что мне поменять на открытый офис? Буду очень признателен за любую помощь.

Sub copyfiles () 

Dim xRg As Range, xCell As Range
Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
Dim xSPathStr As Variant, xDPathStr As Variant
Dim xVal As String
On Error Resume Next
Set xRg = Application.InputBox("Wybierz pliki do skopiowania:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xSFileDlg.Title = "Wybierz folder z którego kopiuję:"
If xSFileDlg.Show <> -1 Then Exit Sub
xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xDFileDlg.Title = "Wybierz folder do którego kopiuję:"
If xDFileDlg.Show <> -1 Then Exit Sub
xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
For Each xCell In xRg
    xVal = xCell.Value
    If TypeName(xVal) = "String" And xVal <> "" Then
        FileCopy xSPathStr & xVal, xDPathStr & xVal
    End If
Next

End Sub

1 Ответ

0 голосов
/ 11 апреля 2019

Код должен быть полностью переписан. OpenOffice Basic - это совершенно другая программная платформа от MS Office VBA.

Хорошее место для начала изучения OpenOffice Basic - http://www.pitonyak.org/oo.php.

...