Excel VBA 代码在 Open Office 中不起作用（列表中的代码复制文件）

Posted 2023-02-24

【中文标题】Excel VBA 代码在 Open Office 中不起作用（列表中的代码复制文件）

【英文标题】：Excel VBA code doesn't work in Open Office (Code copy files from list)

【发布时间】：2019-04-01 11:43:26

【问题描述】：

我有一些 excel VBA 代码，但它在 Open Office Calc 中不起作用。 excel中的代码将列表中的文件从不同目录复制到另一个目录。

我不知道开放式办公室中的宏编程。我读到了不同的声明，但这对我来说真的很难。开放式办公室我应该改变什么？ 如果有任何帮助，我将不胜感激。

子副本文件（）

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

结束子

【参考方案1】：

代码需要完全重写。 OpenOffice Basic 是与 MS Office VBA 完全不同的编程平台。

开始学习 OpenOffice Basic 的一个好地方是http://www.pitonyak.org/oo.php。