Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>This should do the trick. The first subroutine is the event that is triggered on the user clicking on a cell. Change the row and column numbers in the first <code>if</code> statement to change the target cell. You can put all of this code in the code module for the worksheet you want it to work on.</p> <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim filenames() As String Dim filename As Variant Dim filelist As String ' Make sure the user clicked our target cell If Target.Row = 2 And Target.Column = 2 Then ' Get a list of filenames filenames = GetFileNames ' Make sure we got some filenames If UBound(filenames) &gt; 0 Then ' Go through the filenames, adding each to the output string For Each filename In filenames filelist = filelist &amp; CStr(filename) &amp; "|" Next filename ' Remove the final delimiter filelist = Left(filelist, Len(filelist) - 2) ' Apply the output string to the target cell (adding another ' delimiter if there is already text in there) If Not Target.Value = "" Then Target.Value = Target.Value &amp; "|" End If Target.Value = Target.Value &amp; filelist End If End If End Sub </code></pre> <p>The following function is that which is called to open the file dialogue and retrieve the filenames.</p> <pre><code>Private Function GetFileNames() As String() Dim dlg As FileDialog Dim filenames() As String Dim i As Integer ' Open a file dialogue Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg .ButtonName = "Select" ' Text of select/open button .AllowMultiSelect = True ' Allows more than one file to be selected .Filters.Add "All Files", "*.*", 1 ' File filter .Title = "Select file(s)" ' Title of dialogue .InitialView = msoFileDialogViewDetails .Show ' Redimension the array with the required number of filenames ReDim filenames(.SelectedItems.Count) ' Add each retrieved filename to the array For i = 1 To .SelectedItems.Count filenames(i - 1) = .SelectedItems(i) Next i End With ' Clean up and return the array Set dlg = Nothing GetFileNames = filenames End Function </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POExcel cell auto open/close file window and put filename and path as cell value
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USSid Holland
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. COI copied your code in vba code for sheet1...but it did not work..no action for row 2 and column 2...i put a `MsgBox` for test, but it seems, it does not run the codes!
      singulars
      1. PO
      1. USAmir
    2. CO@Amir Did you put the first routine into the Sheet1's code module? If so, it may be that you have something somewhere that is switching off macros. Are you sure that macros are enabled on your Excel installation?
      singulars
      1. PO
      1. USSid Holland
    3. COI am so sorry, but i do not understand, while there is no macro to run, why i need to enable macros. By the way, i enabled `developer` tab, then in `macro security` page, i enabled `Enable all macros` option... Now, when i click on the defined cell, it runs your vba code, but there is an error on `filenames = GetFileNames` , it seems `GetFileNames` function return empty string.
      singulars
      1. PO
      1. USAmir
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload