VBA egyenes zárójel
2022-07-16T16:04:55+02:00
2022-08-16T07:20:13+02:00
2022-08-25T10:00:43+02:00
Csukás
Kezdőcske vagyok a VBA témában segítséget kérnék. Egy egyenes zárójelbe szeretnék beírni egy cella tartalmát, vagy a kódsorban megtalálható wName-t szeretném beilleszteni, és ezzel kiolvasni az adott file megadott celláját. A végeredmény az lenne hogy egy utoljára mentett file egy celláját beolvassuk a mostani munkafüzetbe.
Sub GetDataFromClosedBook() Dim wPath As String, wName As String Dim wFile As Object, wFso As Object, wMax As Variant wPath = "c:\MELÓ\Raktár" Set wFso = CreateObject("Scripting.FileSystemObject") For Each wFile In wFso.GetFolder(wPath).Files If wFile.DateLastModified > wMax Then wMax = wFile.DateLastModified wName = wFile.Name End If Next Range("D3").Value = wName Range("E3").Value = wMax Dim mydata As String mydata = "='c:\MELÓ\Raktár\[........].range Munka1'!$b$2:$C$2" With ThisWorkbook.Sheets(1).Range("B2:c2") .Formula = mydata .Value = .Value 'convert formula to text End With End Sub
Mutasd a teljes hozzászólást!

abcd