office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access中向Excel单元格中录入数据

2020-11-17 08:00:00
tmtony8
原创
78

access常常需要和Excel表格交互数据。比如把access窗口中的文本写入到Excel单元格中

如图所示,向单元格“B3”中输入内容“office交流网”,点击输入到Excel表格中


详细代码如下:主要是通过创建Excel对象,把指定内容录入到指定的单元格中


    Dim xlApp As Object
    Dim xlWbk As Excel.Workbook
    Dim xlWsh As Excel.Worksheet
   
    
    Set xlApp = GetObject(, "Excel.Application")
    xlApp.Visible = True
    Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例1.xlsx")
    Set xlWsh = xlWbk.Worksheets(1)
    xlWsh.Activate
   
    xlWsh.Range(txtRange).Value = Me.txt1 ' 
    
    xlWbk.Save '保存
    Set xlWsh = Nothing
    Set xlWbk = Nothing
    Set xlApp = Nothing



效果如图所示

    分享