用Excel VBA在OneDrive上创建文本文件

Sub CreateTextFileOnOneDrive()
    Dim objFSO As Object
    Dim objFile As Object
    Dim strFilePath As String
    Dim strContent As String
    
    ' 设置文件路径和内容
    strFilePath = "C:\Users\YourUsername\OneDrive\FileName.txt"
    strContent = "This is the content of the text file."
    
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 创建文本文件
    Set objFile = objFSO.CreateTextFile(strFilePath)
    
    ' 写入内容到文件
    objFile.Write strContent
    
    ' 关闭文件
    objFile.Close
    
    ' 释放对象
    Set objFile = Nothing
    Set objFSO = Nothing
    
    MsgBox "Text file created successfully!"
End Sub