Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 15556

VS 2017 Open Excel and avoid dialog boxes

$
0
0
Hello:

I have this very simple code to open a document.

This call opens the workbook...
Code:

xlsWorkBook = xlsWorkBooks.Open(FilePath, True)

When running this, a dialog box comes up saying "We can't update some of the links in your workbook right now. You can continue without updating their values, or edit the links you think are wrong."

What I need is an Alt-C to say 'Continue" without updating. In this open command, I do not see an option for that.


Code:

Imports Microsoft.Office.Interop.Excel

Module Module1
    Sub Main()
        Dim xlsApp As Microsoft.Office.Interop.Excel.Application = Nothing
        Dim xlsWorkBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing
        Dim xlsWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim FilePath As String = "U:\Company Job Log\Master Production Job Log.xlsm"
        Dim xlsWorkSheet As Microsoft.Office.Interop.Excel.Worksheet

        Try
            xlsApp = New Microsoft.Office.Interop.Excel.Application
            xlsApp.Visible = True
            xlsWorkBooks = xlsApp.Workbooks
            xlsWorkBook = xlsWorkBooks.Open(FilePath, True)

            xlsWorkSheet = xlsWorkBook.Worksheets(1)

        Catch

        End Try

    End Sub

End Module

Thanks!

Viewing all articles
Browse latest Browse all 15556

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>