![]() ![]() The immediate solution seems to add ReadOnly:=False to the workbooks.open statement, even if False is the default : but also this change does not work, and the file opens always in read only mode.ġ) The excel table is linked to the access app, but I cannot edit the linked file directly: Starting from version 2003, Microsoft With this addition, the compile error disappears and the code runs, but the excel file opens in read mode only, and even if the updates are made correctly, the save operation fails (Note: the excel file is located in the same folder as the access project, Since access should knowĮverything about excel (excel object library is included), this should not happen anyhow, to bypass the problem and check whether the correct excel file is opened, I inserted This code does not work: I get a compile error, "variable not defined", pointing to LookIn:=xlValues. XlBook.Worksheets("LibroSoci").Cells(rowNo, 37) = Me.Nuova_TessElett XlBook.Worksheets("LibroSoci").Cells(rowNo, 12) = Year(Date) RowNo = xlBook.Worksheets("LibroSoci").Range("C:C").Find(What:=NTes, LookIn:=xlValues).Row Set xlSheet = xlBook.Worksheets("LibroSoci") Set xlBook = (ExcelPath & "LibroSoci.xlsm") Set xlapp = CreateObject("Excel.Application") Private Sub AggiornaLibroSoci(NTes As String)
0 Comments
Leave a Reply. |