写一个Excel宏上传

在Excel中编写宏是为了自动化一些常见的任务，比如数据上传。这里是一个简单的例子，说明如何使用VBA（Visual Basic for Applications）编写一个宏，用于上传文件到指定位置：

Sub UploadFile()
    Dim wb As Workbook '工作簿对象
    Dim ws As Worksheet '工作表对象
    Dim fileToUpload As String '需要上传的文件路径

    '假设文件位于同目录下，文件名为"example.csv"
    fileToUpload = ThisWorkbook.Path & "\example.csv"

    '检查文件是否存在
    If Dir(fileToUpload) <> "" Then
        '选择你要上传数据的工作表
        Set ws = ThisWorkbook.Sheets("Sheet1") '如果你的目标工作表名是Sheet1
        
        '读取文件内容并复制到当前工作表的第一行
        With OpenTextFile(fileToUpload, ForReading)
            ws.Cells(1, 1).Resize(ws.Rows.Count, .Columns.Count).LoadFromText (.ReadAll)
            .Close
        End With

        '显示成功信息
        MsgBox "文件已成功上传!"
    Else
        MsgBox "文件未找到，请确认文件路径是否正确。"
    End If
End Sub

运行这个宏前，请确保已经启用宏，并保存好原始的数据以防意外覆盖。