Глаг .Чистая установка гипер-ссылки на ячейки Excel
Привет,
Я хотел бы вставить гиперссылку на файл в ячейку excel.
Что я уже пробовал:
Я пытался использовать этот код, но как только гиперссылка вставляется в excel, когда я проверяю, что гиперссылка находится в ячейке, но не активна, пока я не отредактирую ячейку, а затем не нажму enter.
Я думаю, что это происходит потому, что гиперссылка вставляется в виде текста.
Может ли кто - нибудь помочь мне ?
<pre>Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=EXCEL_DATA\2SV REARS RFT.xls;Extended Properties = ""Excel 12.0 Xml;HDR=YES""" 'Create an INSERT INTO SQL statement Dim insertStatement As String = "INSERT INTO [" & NOWEEK.Text & "$] ([LINE], [Date], [Shift], [Frame Type], [Quantity], [Problem], [Weld Number], [Welder]) VALUES ('=HYPERLINK(C:\SMART" & FRAMETYPE.Text & ".xlsx)','" + datee.Text + "','" + CHOSESHIFT.Text + "','" + FRAMETYPE.Text + "'," + QUANTITY.Text + ",'" + PROBLEM.Text + "','" + WELDNUMBER.Text + "','" + WELDERNAME.Text + "')" 'Create a connection object to connect to the Excel Workbook Dim connection As New OleDbConnection(connectionString) 'Create a command object that will execute the insert statement Dim command As New OleDbCommand(insertStatement, connection) 'Open the connection, execute the statement and close the connection connection.Open() command.ExecuteNonQuery() connection.Close() 'Dispose of the connection and command objects connection.Dispose() command.Dispose() 'Call the RefreshData routine so that you can see that data was indeed added.