æä½ã§ãã¾ãã VBEã®åç §è¨å®ã§Microsoft Excel ?.? ObjectLibrary(ãã¼ã¸ã§ã³ä¸æãªã®ã§)ã«ãã§ãã¯ãå ¥ãã¾ãã Private Sub Cmd1_Click() On Error Resume Next Dim objExcelAppã As Workbook Dim strExcelFileãAs String Dim strExcelSheet As String strExcelFile = "C:\test.xls" 'ã¨ã¯ã»ã«ã®ãã¡ã¤ã«å strExcelSheet = "sheet1"ã'ããã¯ã®ã·ã¼ãå Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet") 'â»Excelã®æå®ã»ã«ã«å¤ãä»£å ¥ããå ´å strExcelSheet.Cells(1, 1).Value = "12" 'â»
{{#tags}}- {{label}}
{{/tags}}