读写文件

Question

有两台电脑,我想实现在其中一台机器上,打开excel文档后，点击一个button，在另一台机器（IP:１０.１９４.２２.２３）的＂project＂这个文件夹里，生成一个"aaa.xls"文件，并且将信息＂what you name ＂写在sheet1的５行５列这个单元格，请高人帮看看，最好回答附加代码．

Answer 1

Private Function bExport() As Boolean
    
    Dim MyApp     As Excel.Application
    Dim MyBook     As Excel.Workbook
    Dim MySheet     As Excel.Worksheet    Set MyApp = CreateObject("Excel.Application")
    MyApp.Visible = False
    Set MyBook = MyApp.Workbooks.Add()
    Set MySheet = MyBook.Worksheets(1)    MySheet.Cells(5, 5).Value = "what you name "    '确认你有写的权限 可以试试写本机的C:         
    MyBook.SaveAs "\\１０.１９４.２２.２３\project\aaa.xls"
    
    MyApp.Quit
      
    Set MyApp = Nothing
        
    MsgBox "OK!"
    
End Function