Powerpoint vba打开excel并粘贴文本并用“分隔”|&引用；

我想要一个powerpoint vba代码

第一：打开新的excel。 第二：将powerpoint幻灯片中的文本粘贴到单元格“A1”中。 第三：在excel中，用“|”分隔单元格“A1”

但第二步的代码运行良好，但第三步的代码不运行

当我在excel vba中运行相同的代码时，它成功了，但是 在powerpoint vba中，它没有

我下面的代码有什么问题

公共子负载ToExcel（）

---

End Sub

您没有确切说明问题所在。“没有成功”是不够的。但如果您试图在PPT中运行此代码，它甚至不会编译。您正在PPT中使用Excel常量：xlDelimited、xlDoubleQuote等。您需要找到它们的值，并在自己的代码中将它们定义为常量，以便PPT知道它们是什么。感谢您回答我的问题。如果你不介意的话，你能推荐一个好的网站来为ppt找到合适的常数吗？不需要网站。只需进入任何应用程序中的VBA IDE，打开即时窗口（按Ctrl+G），键入一个问号，后跟要查找的常量的名称，然后输入：？例如，XLF是分隔的。。常数的值将显示在下面。正如您指出的，我查找了常数的相应值。我发现他们都是1。因此，在源代码中，我添加了如下声明代码。常量xl分隔为Variant=1（与xldoubleqoure相同），但结果相同。我的意思是，从开始到.Paste的代码执行得很好，但是.Paste之后的代码我的意思是从.Columns（“A:A”）.TextToColums到TrailingMinusNumbers:True仍然没有执行。我的代码中还有其他问题吗？我在这里试过；在将代码中的两个XL常量都更改为文字1之后，我在PPT中添加了一行文字，文字之间带有管道符号，选择文字，复制它，然后运行代码。成功了。运行代码时，是否确定剪贴板上有适当的内容？

Dim xlApp As Object
Dim xlWorkBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Add
Set xlSheet = xlWorkBook.Sheets(1)

With xlSheet

   .Range("A1").Select
   .Paste

   .Columns("A:A").TextToColumns _
    Destination:=.Range("A1"), _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    Tab:=False, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=False, _
    Other:=True, _
    OtherChar:="|", _
    FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
    TrailingMinusNumbers:=True

End With

Set xlApp = Nothing
Set xlWorkBook = Nothing