Multiple data import from text files

N

Nils_Junker

Board Regular
Joined
Jun 2, 2023
Messages
80
Office Version
  1. 365
Platform
  1. Windows
Hi everybody,

I got the following problem:

I need to get data from round about 500 text files.
Problem one is that I just need a part of each text file, (the part I need always stays the same)
Problem two is that I dont have enough time to manually convert all the text files one by one.

The following link shows all the files I want to include in my excel


Also how many lines can i insert in Excel?

If you need further Information, please send me an info!

Thanks for your help!
 

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.
Sort by date Sort by votes
Now this is a bit outside my level but i see the link takes you to a webpage with a list of zipfiles that contain the text files. so question is have you downloaded these to a local folder and unzipped them already or do you need to process information directly from the website.
This is a good walk through uising PQ
Get data from zip files PQ
 
Last edited:
Upvote 0
Kerryx said:
Now this is a bit outside my level but i see the link takes you to a webpage with a list of zipfiles that contain the text files. so question is have you downloaded these to a local folder and unzipped them already or do you need to process information directly from the website.
This is a good walk through uising PQ
Get data from zip files PQ
Click to expand...
No I didn't downloaded them because I first will run a test because the data i need is in the future but i want to make sure that it actually works
 
Upvote 0
I had nothing better to do today so I have developed some code to download the files that you need.

The code unzips them.

You say that you only want specific data from each file.

Can you specify what data you need?

The files are large and you would not be able to import many into a single worksheet.

Once the data is imported what do you need to do with it?
 
Upvote 0
Herakles said:
I had nothing better to do today so I have developed some code to download the files that you need.

The code unzips them.

You say that you only want specific data from each file.

Can you specify what data you need?

The files are large and you would not be able to import many into a single worksheet.

Once the data is imported what do you need to do with it?
Click to expand...
Hi, first thanks for taking the time.

So mainly I just need the ID (STATIONS_ID), the time stamp (MESS_DATUM) and the Temperature (TT_10).
But if this is too complicated then nevermind i can work with all of the columns
And also just from the month may (so from 202305010000 up to 202305312350)

I only need like 10 of the ZIP-files per worksheet

can you already send me this code?

Again thanks for helping!!!
 
Last edited:
Upvote 0
Can you test this for me.

Set up a workbook by whatever name you like.

Create a worksheet called 'SourceFiles'.

Copy the filenames listed below into this column from row 2.

Create a sub-folder called 'Downloads' in the folder in which this workbook is saved.

Create a sub-folder celled 'Unzipped' in the 'Downloads' folder.

These two folders are cleared of files when the procedure starts.

Create a standard code module and copy this code into it.

The code is run from the 'subDownloadZipFileFromWeb' procedure.
This is the first procedure.

You will be prompted to select a number of file from the list in column A.
Do not select row 1.

A list is produced of the text files that have been unzipped.
This list includes the number of rows and the date period covered by the file.

Based upon this information let me know the logic behind selecting what to do with the data.

Remember that you only have 1048576 rows in a worksheet.

I have left error handing off to identify if an error is produced.

VBA Code: 
Public Sub subDownloadZipFileFromWeb()
Dim strFileUrl As String
Dim objXmlHttpReq As Object
Dim objStream As Object

Dim rngFileList As Range
Dim strWebFolder As String
Dim rng As Range
Dim strDownloadFolder As String
Dim strUnzippedFolder As String
Dim lngCount As Long
Dim strFilename As String
Dim WsDestination As Worksheet
Dim rngSelected As Range

' On Error GoTo Err_Handler

    ActiveWorkbook.Save
    
    Set WbMain = ActiveWorkbook
    
    Set WsFileList = WbMain.Worksheets("SourceFiles")
    
    strWebFolder = "https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/10_minutes/air_temperature/recent/"
    
    WsFileList.Activate

    If MsgBox("Clear existing data?", vbYesNo, "Question") = vbYes Then
        WsFileList.Range("B1:H20000").Cells.ClearContents
    End If
    
    WsFileList.Range("B1:H20000").Cells.ClearContents
        
    With WsFileList.Range("A1:F1")
        .Value = Array("Filename", "Download Date and Time", "Text File Name", "Rows", "Start", "End")
        .Interior.Color = RGB(210, 210, 210)
        .Font.Bold = True
        .Rows("2:2").Select
        ActiveWindow.FreezePanes = True
    End With
    
    WsFileList.Range("A1").Select
    
    WsFileList.Cells.EntireColumn.AutoFit
        
    ' Get range of files.
    On Error Resume Next
    Set rngSelected = Application.InputBox( _
        Title:="Range Selection", _
        Prompt:="Select a rang of files to download.", _
        Type:=8)
    On Error GoTo 0
    
    If rngSelected Is Nothing Then
        MsgBox "Invalid range selected.", vbCritical, "Warning!"
        Exit Sub
    End If
        
    If (rngSelected.Cells(1, 1).Row < 2) Or _
        (rngSelected.Rows.Count > WsFileList.Range("A1").End(xlDown).Row) Or _
        (rngSelected.Columns.Count > 1) Or _
        (rngSelected.Cells(1, 1).Column <> 1) Then
        MsgBox "Invalid range selected.", vbCritical, "Warning!"
        Exit Sub
    End If
        
    Set rngFileList = rngSelected
        
    strDownloadFolder = ThisWorkbook.Path & "\Downloads\"
    Call subDeleteAllFilesInAFolder(strDownloadFolder)
    
    strUnzippedFolder = ThisWorkbook.Path & "\Downloads\Unzipped\"
    Call subDeleteAllFilesInAFolder(strUnzippedFolder)
        
    Set WsDestination = Worksheets("ImportedData")
        
    Set objXmlHttpReq = CreateObject("Microsoft.XMLHTTP")
    
    Application.ScreenUpdating = False
    
    For Each rng In rngFileList.Cells
    
        strFilename = rng.Value
            
        strFileUrl = strWebFolder & strFilename
     
       objXmlHttpReq.Open "GET", strFileUrl, False, "username", "password"
       objXmlHttpReq.send
    
        If objXmlHttpReq.Status = 200 Then
            Set objStream = CreateObject("ADODB.Stream")
            objStream.Open
            objStream.Type = 1
            objStream.Write objXmlHttpReq.responseBody
            objStream.SaveToFile strDownloadFolder & "\" & strFilename, 2
            objStream.Close
        End If
        
        Call subUnzip(strDownloadFolder & "\" & strFilename, strUnzippedFolder)
                
        lngCount = lngCount + 1
        
    Next rng
    
    Set objXmlHttpReq = Nothing
    
    Call subImportDataFromTextFiles(strUnzippedFolder, WsDestination)
    
    Application.ScreenUpdating = True
    
    With WsFileList.Range("A1").CurrentRegion
        .RowHeight = 30
    End With

    MsgBox lngCount & " files have been downloaded.", vbOKOnly, "Confirmation"

Exit_Handler:

    Exit Sub
    
Err_Handler:

    MsgBox Err.Number & vbCrLf & _
       Err.Description

    Resume Exit_Handler

End Sub

Public Sub subUnzip(zipFileName As String, unZipFolderName As String)
    ' Define Variable Data Types
' Dim zipFileName As String
' Dim unZipFolderName As String
Dim objZipItems As FolderItems
Dim objZipItem As FolderItem
  
    ' Early Binding Reference
    ' Add Tools -> Reference -> "Microsoft Shell Controls & Automation"
    Dim wShApp As Shell
    Set wShApp = CreateObject("Shell.Application")
    Set objZipItems = wShApp.Namespace(zipFileName).items
    
    ' Extract: Unzip all Files to Folder
    wShApp.Namespace(unZipFolderName).CopyHere objZipItems
        
End Sub

Public Sub subDeleteAllFilesInAFolder(sFolderPath As String)
Dim oFSO As FileSystemObject
    
    If Right(sFolderPath, 1) = "\" Then
        sFolderPath = Left(sFolderPath, Len(sFolderPath) - 1)
    End If
            
    'Create FSO Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    
    'Check Specified Folder exists or not
    If oFSO.FolderExists(sFolderPath) Then
        
        oFSO.DeleteFile sFolderPath & "\*.*", True
                        
     End If
    
End Sub

Public Sub subImportDataFromTextFiles(sFolderPath As String, WsDestination As Worksheet)
Dim fsoLibrary As FileSystemObject
Dim fsoFolder As Object
Dim sFileName As Object
Dim s As String
Dim lngRow As Long
Dim arrFileName() As String
Dim dteStart As Date
Dim dteEnd As Date

    lngRow = 2

    Set fsoLibrary = New FileSystemObject
    
    Set fsoFolder = fsoLibrary.GetFolder(sFolderPath)
    
    'Loop through each file in a folder.
    For Each sFileName In fsoFolder.Files
    
        Workbooks.OpenText Filename:=sFileName, DataType:=xlDelimited, Semicolon:=True, DecimalSeparator:=",", ThousandsSeparator:="."
              
        arrFileName = Split(sFileName, "_")
        
        dteStart = DateSerial(Left(arrFileName(4), 4), Mid(arrFileName(4), 5, 2), Right(arrFileName(4), 2))
        
        dteEnd = DateSerial(Left(arrFileName(5), 4), Mid(arrFileName(5), 5, 2), Right(arrFileName(5), 2))
        
        WsFileList.Cells(lngRow, 2).Resize(1, 5).Value = Array(Format(Now(), "dd/mm/yyyy hh:mm:ss"), ActiveWorkbook.Name, ActiveSheet.Range("A1").End(xlDown).Row, dteStart, dteEnd)
        
        ActiveWorkbook.Close
        
        lngRow = lngRow + 1
    
    Next
    
    'Release the memory.
    Set fsoLibrary = Nothing
    Set fsoFolder = Nothing
    
    WsFileList.Cells.EntireColumn.AutoFit
    
End Sub

Download Zip Files.xlsm
A
210minutenwerte_TU_00044_akt.zip
310minutenwerte_TU_00073_akt.zip
410minutenwerte_TU_00078_akt.zip
510minutenwerte_TU_00091_akt.zip
610minutenwerte_TU_00096_akt.zip
710minutenwerte_TU_00131_akt.zip
810minutenwerte_TU_00142_akt.zip
910minutenwerte_TU_00150_akt.zip
1010minutenwerte_TU_00151_akt.zip
1110minutenwerte_TU_00154_akt.zip
1210minutenwerte_TU_00161_akt.zip
1310minutenwerte_TU_00164_akt.zip
1410minutenwerte_TU_00167_akt.zip
1510minutenwerte_TU_00183_akt.zip
1610minutenwerte_TU_00191_akt.zip
1710minutenwerte_TU_00198_akt.zip
1810minutenwerte_TU_00217_akt.zip
1910minutenwerte_TU_00222_akt.zip
2010minutenwerte_TU_00232_akt.zip
2110minutenwerte_TU_00257_akt.zip
2210minutenwerte_TU_00259_akt.zip
2310minutenwerte_TU_00282_akt.zip
2410minutenwerte_TU_00294_akt.zip
2510minutenwerte_TU_00298_akt.zip
2610minutenwerte_TU_00303_akt.zip
2710minutenwerte_TU_00314_akt.zip
2810minutenwerte_TU_00320_akt.zip
2910minutenwerte_TU_00330_akt.zip
3010minutenwerte_TU_00342_akt.zip
3110minutenwerte_TU_00377_akt.zip
3210minutenwerte_TU_00379_akt.zip
3310minutenwerte_TU_00390_akt.zip
3410minutenwerte_TU_00400_akt.zip
3510minutenwerte_TU_00410_akt.zip
3610minutenwerte_TU_00420_akt.zip
3710minutenwerte_TU_00427_akt.zip
3810minutenwerte_TU_00430_akt.zip
3910minutenwerte_TU_00433_akt.zip
4010minutenwerte_TU_00445_akt.zip
4110minutenwerte_TU_00460_akt.zip
4210minutenwerte_TU_00535_akt.zip
4310minutenwerte_TU_00555_akt.zip
4410minutenwerte_TU_00591_akt.zip
4510minutenwerte_TU_00596_akt.zip
4610minutenwerte_TU_00603_akt.zip
4710minutenwerte_TU_00617_akt.zip
4810minutenwerte_TU_00656_akt.zip
4910minutenwerte_TU_00662_akt.zip
5010minutenwerte_TU_00691_akt.zip
5110minutenwerte_TU_00701_akt.zip
5210minutenwerte_TU_00704_akt.zip
5310minutenwerte_TU_00722_akt.zip
5410minutenwerte_TU_00755_akt.zip
5510minutenwerte_TU_00757_akt.zip
5610minutenwerte_TU_00760_akt.zip
5710minutenwerte_TU_00817_akt.zip
5810minutenwerte_TU_00840_akt.zip
5910minutenwerte_TU_00853_akt.zip
6010minutenwerte_TU_00856_akt.zip
6110minutenwerte_TU_00867_akt.zip
6210minutenwerte_TU_00880_akt.zip
6310minutenwerte_TU_00891_akt.zip
6410minutenwerte_TU_00896_akt.zip
6510minutenwerte_TU_00917_akt.zip
6610minutenwerte_TU_00953_akt.zip
6710minutenwerte_TU_00963_akt.zip
6810minutenwerte_TU_00979_akt.zip
6910minutenwerte_TU_00983_akt.zip
7010minutenwerte_TU_00991_akt.zip
7110minutenwerte_TU_01001_akt.zip
7210minutenwerte_TU_01048_akt.zip
7310minutenwerte_TU_01050_akt.zip
7410minutenwerte_TU_01051_akt.zip
7510minutenwerte_TU_01052_akt.zip
7610minutenwerte_TU_01072_akt.zip
7710minutenwerte_TU_01078_akt.zip
7810minutenwerte_TU_01103_akt.zip
7910minutenwerte_TU_01107_akt.zip
8010minutenwerte_TU_01161_akt.zip
8110minutenwerte_TU_01197_akt.zip
8210minutenwerte_TU_01200_akt.zip
8310minutenwerte_TU_01207_akt.zip
8410minutenwerte_TU_01214_akt.zip
8510minutenwerte_TU_01224_akt.zip
8610minutenwerte_TU_01246_akt.zip
8710minutenwerte_TU_01255_akt.zip
8810minutenwerte_TU_01262_akt.zip
8910minutenwerte_TU_01266_akt.zip
9010minutenwerte_TU_01270_akt.zip
9110minutenwerte_TU_01279_akt.zip
9210minutenwerte_TU_01297_akt.zip
9310minutenwerte_TU_01300_akt.zip
9410minutenwerte_TU_01303_akt.zip
9510minutenwerte_TU_01327_akt.zip
9610minutenwerte_TU_01332_akt.zip
9710minutenwerte_TU_01346_akt.zip
9810minutenwerte_TU_01357_akt.zip
9910minutenwerte_TU_01358_akt.zip
10010minutenwerte_TU_01411_akt.zip
10110minutenwerte_TU_01420_akt.zip
10210minutenwerte_TU_01424_akt.zip
10310minutenwerte_TU_01443_akt.zip
10410minutenwerte_TU_01451_akt.zip
10510minutenwerte_TU_01468_akt.zip
10610minutenwerte_TU_01503_akt.zip
10710minutenwerte_TU_01526_akt.zip
10810minutenwerte_TU_01544_akt.zip
10910minutenwerte_TU_01550_akt.zip
11010minutenwerte_TU_01580_akt.zip
11110minutenwerte_TU_01584_akt.zip
11210minutenwerte_TU_01587_akt.zip
11310minutenwerte_TU_01590_akt.zip
11410minutenwerte_TU_01602_akt.zip
11510minutenwerte_TU_01605_akt.zip
11610minutenwerte_TU_01612_akt.zip
11710minutenwerte_TU_01639_akt.zip
11810minutenwerte_TU_01645_akt.zip
11910minutenwerte_TU_01684_akt.zip
12010minutenwerte_TU_01691_akt.zip
12110minutenwerte_TU_01694_akt.zip
12210minutenwerte_TU_01721_akt.zip
12310minutenwerte_TU_01735_akt.zip
12410minutenwerte_TU_01736_akt.zip
12510minutenwerte_TU_01757_akt.zip
12610minutenwerte_TU_01759_akt.zip
12710minutenwerte_TU_01766_akt.zip
12810minutenwerte_TU_01792_akt.zip
12910minutenwerte_TU_01803_akt.zip
13010minutenwerte_TU_01832_akt.zip
13110minutenwerte_TU_01863_akt.zip
13210minutenwerte_TU_01869_akt.zip
13310minutenwerte_TU_01886_akt.zip
13410minutenwerte_TU_01964_akt.zip
13510minutenwerte_TU_01975_akt.zip
13610minutenwerte_TU_01981_akt.zip
13710minutenwerte_TU_02014_akt.zip
13810minutenwerte_TU_02023_akt.zip
13910minutenwerte_TU_02039_akt.zip
14010minutenwerte_TU_02044_akt.zip
14110minutenwerte_TU_02074_akt.zip
14210minutenwerte_TU_02110_akt.zip
14310minutenwerte_TU_02115_akt.zip
14410minutenwerte_TU_02171_akt.zip
14510minutenwerte_TU_02174_akt.zip
14610minutenwerte_TU_02201_akt.zip
14710minutenwerte_TU_02211_akt.zip
14810minutenwerte_TU_02252_akt.zip
14910minutenwerte_TU_02261_akt.zip
15010minutenwerte_TU_02290_akt.zip
15110minutenwerte_TU_02306_akt.zip
15210minutenwerte_TU_02319_akt.zip
15310minutenwerte_TU_02323_akt.zip
15410minutenwerte_TU_02362_akt.zip
15510minutenwerte_TU_02429_akt.zip
15610minutenwerte_TU_02444_akt.zip
15710minutenwerte_TU_02480_akt.zip
15810minutenwerte_TU_02483_akt.zip
15910minutenwerte_TU_02485_akt.zip
16010minutenwerte_TU_02486_akt.zip
16110minutenwerte_TU_02497_akt.zip
16210minutenwerte_TU_02559_akt.zip
16310minutenwerte_TU_02564_akt.zip
16410minutenwerte_TU_02575_akt.zip
16510minutenwerte_TU_02578_akt.zip
16610minutenwerte_TU_02597_akt.zip
16710minutenwerte_TU_02600_akt.zip
16810minutenwerte_TU_02601_akt.zip
16910minutenwerte_TU_02618_akt.zip
17010minutenwerte_TU_02627_akt.zip
17110minutenwerte_TU_02629_akt.zip
17210minutenwerte_TU_02638_akt.zip
17310minutenwerte_TU_02641_akt.zip
17410minutenwerte_TU_02667_akt.zip
17510minutenwerte_TU_02680_akt.zip
17610minutenwerte_TU_02700_akt.zip
17710minutenwerte_TU_02704_akt.zip
17810minutenwerte_TU_02708_akt.zip
17910minutenwerte_TU_02712_akt.zip
18010minutenwerte_TU_02750_akt.zip
18110minutenwerte_TU_02794_akt.zip
18210minutenwerte_TU_02812_akt.zip
18310minutenwerte_TU_02814_akt.zip
18410minutenwerte_TU_02856_akt.zip
18510minutenwerte_TU_02878_akt.zip
18610minutenwerte_TU_02907_akt.zip
18710minutenwerte_TU_02925_akt.zip
18810minutenwerte_TU_02928_akt.zip
18910minutenwerte_TU_02932_akt.zip
19010minutenwerte_TU_02947_akt.zip
19110minutenwerte_TU_02951_akt.zip
19210minutenwerte_TU_02953_akt.zip
19310minutenwerte_TU_02961_akt.zip
19410minutenwerte_TU_02968_akt.zip
19510minutenwerte_TU_02985_akt.zip
19610minutenwerte_TU_03015_akt.zip
19710minutenwerte_TU_03028_akt.zip
19810minutenwerte_TU_03031_akt.zip
19910minutenwerte_TU_03032_akt.zip
20010minutenwerte_TU_03034_akt.zip
20110minutenwerte_TU_03042_akt.zip
20210minutenwerte_TU_03083_akt.zip
20310minutenwerte_TU_03086_akt.zip
20410minutenwerte_TU_03093_akt.zip
20510minutenwerte_TU_03098_akt.zip
20610minutenwerte_TU_03126_akt.zip
20710minutenwerte_TU_03137_akt.zip
20810minutenwerte_TU_03147_akt.zip
20910minutenwerte_TU_03155_akt.zip
21010minutenwerte_TU_03158_akt.zip
21110minutenwerte_TU_03164_akt.zip
21210minutenwerte_TU_03166_akt.zip
21310minutenwerte_TU_03167_akt.zip
21410minutenwerte_TU_03181_akt.zip
21510minutenwerte_TU_03196_akt.zip
21610minutenwerte_TU_03204_akt.zip
21710minutenwerte_TU_03226_akt.zip
21810minutenwerte_TU_03231_akt.zip
21910minutenwerte_TU_03234_akt.zip
22010minutenwerte_TU_03244_akt.zip
22110minutenwerte_TU_03257_akt.zip
22210minutenwerte_TU_03268_akt.zip
22310minutenwerte_TU_03271_akt.zip
22410minutenwerte_TU_03278_akt.zip
22510minutenwerte_TU_03284_akt.zip
22610minutenwerte_TU_03287_akt.zip
22710minutenwerte_TU_03289_akt.zip
22810minutenwerte_TU_03307_akt.zip
22910minutenwerte_TU_03319_akt.zip
23010minutenwerte_TU_03321_akt.zip
23110minutenwerte_TU_03340_akt.zip
23210minutenwerte_TU_03348_akt.zip
23310minutenwerte_TU_03362_akt.zip
23410minutenwerte_TU_03366_akt.zip
23510minutenwerte_TU_03376_akt.zip
23610minutenwerte_TU_03379_akt.zip
23710minutenwerte_TU_03402_akt.zip
23810minutenwerte_TU_03426_akt.zip
23910minutenwerte_TU_03442_akt.zip
24010minutenwerte_TU_03485_akt.zip
24110minutenwerte_TU_03490_akt.zip
24210minutenwerte_TU_03509_akt.zip
24310minutenwerte_TU_03513_akt.zip
24410minutenwerte_TU_03527_akt.zip
24510minutenwerte_TU_03540_akt.zip
24610minutenwerte_TU_03545_akt.zip
24710minutenwerte_TU_03571_akt.zip
24810minutenwerte_TU_03591_akt.zip
24910minutenwerte_TU_03612_akt.zip
25010minutenwerte_TU_03621_akt.zip
25110minutenwerte_TU_03631_akt.zip
25210minutenwerte_TU_03660_akt.zip
25310minutenwerte_TU_03667_akt.zip
25410minutenwerte_TU_03668_akt.zip
25510minutenwerte_TU_03679_akt.zip
25610minutenwerte_TU_03730_akt.zip
25710minutenwerte_TU_03734_akt.zip
25810minutenwerte_TU_03739_akt.zip
25910minutenwerte_TU_03761_akt.zip
26010minutenwerte_TU_03811_akt.zip
26110minutenwerte_TU_03821_akt.zip
26210minutenwerte_TU_03836_akt.zip
26310minutenwerte_TU_03857_akt.zip
26410minutenwerte_TU_03875_akt.zip
26510minutenwerte_TU_03897_akt.zip
26610minutenwerte_TU_03904_akt.zip
26710minutenwerte_TU_03925_akt.zip
26810minutenwerte_TU_03927_akt.zip
26910minutenwerte_TU_03939_akt.zip
27010minutenwerte_TU_03946_akt.zip
27110minutenwerte_TU_03975_akt.zip
27210minutenwerte_TU_03987_akt.zip
27310minutenwerte_TU_04024_akt.zip
27410minutenwerte_TU_04032_akt.zip
27510minutenwerte_TU_04036_akt.zip
27610minutenwerte_TU_04039_akt.zip
27710minutenwerte_TU_04063_akt.zip
27810minutenwerte_TU_04094_akt.zip
27910minutenwerte_TU_04104_akt.zip
28010minutenwerte_TU_04127_akt.zip
28110minutenwerte_TU_04160_akt.zip
28210minutenwerte_TU_04169_akt.zip
28310minutenwerte_TU_04175_akt.zip
28410minutenwerte_TU_04177_akt.zip
28510minutenwerte_TU_04189_akt.zip
28610minutenwerte_TU_04261_akt.zip
28710minutenwerte_TU_04271_akt.zip
28810minutenwerte_TU_04275_akt.zip
28910minutenwerte_TU_04280_akt.zip
29010minutenwerte_TU_04287_akt.zip
29110minutenwerte_TU_04300_akt.zip
29210minutenwerte_TU_04301_akt.zip
29310minutenwerte_TU_04323_akt.zip
29410minutenwerte_TU_04336_akt.zip
29510minutenwerte_TU_04349_akt.zip
29610minutenwerte_TU_04354_akt.zip
29710minutenwerte_TU_04371_akt.zip
29810minutenwerte_TU_04377_akt.zip
29910minutenwerte_TU_04393_akt.zip
30010minutenwerte_TU_04411_akt.zip
30110minutenwerte_TU_04445_akt.zip
30210minutenwerte_TU_04464_akt.zip
30310minutenwerte_TU_04466_akt.zip
30410minutenwerte_TU_04480_akt.zip
30510minutenwerte_TU_04501_akt.zip
30610minutenwerte_TU_04508_akt.zip
30710minutenwerte_TU_04548_akt.zip
30810minutenwerte_TU_04559_akt.zip
30910minutenwerte_TU_04560_akt.zip
31010minutenwerte_TU_04592_akt.zip
31110minutenwerte_TU_04605_akt.zip
31210minutenwerte_TU_04625_akt.zip
31310minutenwerte_TU_04642_akt.zip
31410minutenwerte_TU_04651_akt.zip
31510minutenwerte_TU_04703_akt.zip
31610minutenwerte_TU_04704_akt.zip
31710minutenwerte_TU_04706_akt.zip
31810minutenwerte_TU_04709_akt.zip
31910minutenwerte_TU_04745_akt.zip
32010minutenwerte_TU_04763_akt.zip
32110minutenwerte_TU_04813_akt.zip
32210minutenwerte_TU_04841_akt.zip
32310minutenwerte_TU_04857_akt.zip
32410minutenwerte_TU_04878_akt.zip
32510minutenwerte_TU_04887_akt.zip
32610minutenwerte_TU_04896_akt.zip
32710minutenwerte_TU_04911_akt.zip
32810minutenwerte_TU_04928_akt.zip
32910minutenwerte_TU_04931_akt.zip
33010minutenwerte_TU_04978_akt.zip
33110minutenwerte_TU_04997_akt.zip
33210minutenwerte_TU_05009_akt.zip
33310minutenwerte_TU_05014_akt.zip
33410minutenwerte_TU_05017_akt.zip
33510minutenwerte_TU_05029_akt.zip
33610minutenwerte_TU_05046_akt.zip
33710minutenwerte_TU_05064_akt.zip
33810minutenwerte_TU_05097_akt.zip
33910minutenwerte_TU_05099_akt.zip
34010minutenwerte_TU_05100_akt.zip
34110minutenwerte_TU_05109_akt.zip
34210minutenwerte_TU_05111_akt.zip
34310minutenwerte_TU_05133_akt.zip
34410minutenwerte_TU_05142_akt.zip
34510minutenwerte_TU_05146_akt.zip
34610minutenwerte_TU_05149_akt.zip
34710minutenwerte_TU_05158_akt.zip
34810minutenwerte_TU_05229_akt.zip
34910minutenwerte_TU_05275_akt.zip
35010minutenwerte_TU_05279_akt.zip
35110minutenwerte_TU_05280_akt.zip
35210minutenwerte_TU_05300_akt.zip
35310minutenwerte_TU_05335_akt.zip
35410minutenwerte_TU_05347_akt.zip
35510minutenwerte_TU_05349_akt.zip
35610minutenwerte_TU_05371_akt.zip
35710minutenwerte_TU_05397_akt.zip
35810minutenwerte_TU_05404_akt.zip
35910minutenwerte_TU_05424_akt.zip
36010minutenwerte_TU_05426_akt.zip
36110minutenwerte_TU_05433_akt.zip
36210minutenwerte_TU_05440_akt.zip
36310minutenwerte_TU_05480_akt.zip
36410minutenwerte_TU_05490_akt.zip
36510minutenwerte_TU_05516_akt.zip
36610minutenwerte_TU_05538_akt.zip
36710minutenwerte_TU_05541_akt.zip
36810minutenwerte_TU_05546_akt.zip
36910minutenwerte_TU_05562_akt.zip
37010minutenwerte_TU_05629_akt.zip
37110minutenwerte_TU_05643_akt.zip
37210minutenwerte_TU_05664_akt.zip
37310minutenwerte_TU_05676_akt.zip
37410minutenwerte_TU_05688_akt.zip
37510minutenwerte_TU_05692_akt.zip
37610minutenwerte_TU_05705_akt.zip
37710minutenwerte_TU_05717_akt.zip
37810minutenwerte_TU_05731_akt.zip
37910minutenwerte_TU_05745_akt.zip
38010minutenwerte_TU_05750_akt.zip
38110minutenwerte_TU_05779_akt.zip
38210minutenwerte_TU_05792_akt.zip
38310minutenwerte_TU_05797_akt.zip
38410minutenwerte_TU_05800_akt.zip
38510minutenwerte_TU_05822_akt.zip
38610minutenwerte_TU_05825_akt.zip
38710minutenwerte_TU_05839_akt.zip
38810minutenwerte_TU_05856_akt.zip
38910minutenwerte_TU_05871_akt.zip
39010minutenwerte_TU_05906_akt.zip
39110minutenwerte_TU_05930_akt.zip
39210minutenwerte_TU_05941_akt.zip
39310minutenwerte_TU_06093_akt.zip
39410minutenwerte_TU_06105_akt.zip
39510minutenwerte_TU_06109_akt.zip
39610minutenwerte_TU_06129_akt.zip
39710minutenwerte_TU_06157_akt.zip
39810minutenwerte_TU_06158_akt.zip
39910minutenwerte_TU_06159_akt.zip
40010minutenwerte_TU_06163_akt.zip
40110minutenwerte_TU_06170_akt.zip
40210minutenwerte_TU_06197_akt.zip
40310minutenwerte_TU_06199_akt.zip
40410minutenwerte_TU_06217_akt.zip
40510minutenwerte_TU_06258_akt.zip
40610minutenwerte_TU_06259_akt.zip
40710minutenwerte_TU_06260_akt.zip
40810minutenwerte_TU_06262_akt.zip
40910minutenwerte_TU_06263_akt.zip
41010minutenwerte_TU_06264_akt.zip
41110minutenwerte_TU_06265_akt.zip
41210minutenwerte_TU_06266_akt.zip
41310minutenwerte_TU_06272_akt.zip
41410minutenwerte_TU_06273_akt.zip
41510minutenwerte_TU_06275_akt.zip
41610minutenwerte_TU_06305_akt.zip
41710minutenwerte_TU_06310_akt.zip
41810minutenwerte_TU_06312_akt.zip
41910minutenwerte_TU_06314_akt.zip
42010minutenwerte_TU_06336_akt.zip
42110minutenwerte_TU_06337_akt.zip
42210minutenwerte_TU_06344_akt.zip
42310minutenwerte_TU_06346_akt.zip
42410minutenwerte_TU_06347_akt.zip
42510minutenwerte_TU_07075_akt.zip
42610minutenwerte_TU_07099_akt.zip
42710minutenwerte_TU_07105_akt.zip
42810minutenwerte_TU_07106_akt.zip
42910minutenwerte_TU_07187_akt.zip
43010minutenwerte_TU_07298_akt.zip
43110minutenwerte_TU_07319_akt.zip
43210minutenwerte_TU_07321_akt.zip
43310minutenwerte_TU_07329_akt.zip
43410minutenwerte_TU_07330_akt.zip
43510minutenwerte_TU_07331_akt.zip
43610minutenwerte_TU_07341_akt.zip
43710minutenwerte_TU_07343_akt.zip
43810minutenwerte_TU_07350_akt.zip
43910minutenwerte_TU_07351_akt.zip
44010minutenwerte_TU_07364_akt.zip
44110minutenwerte_TU_07367_akt.zip
44210minutenwerte_TU_07368_akt.zip
44310minutenwerte_TU_07369_akt.zip
44410minutenwerte_TU_07370_akt.zip
44510minutenwerte_TU_07373_akt.zip
44610minutenwerte_TU_07374_akt.zip
44710minutenwerte_TU_07389_akt.zip
44810minutenwerte_TU_07393_akt.zip
44910minutenwerte_TU_07394_akt.zip
45010minutenwerte_TU_07395_akt.zip
45110minutenwerte_TU_07396_akt.zip
45210minutenwerte_TU_07403_akt.zip
45310minutenwerte_TU_07410_akt.zip
45410minutenwerte_TU_07412_akt.zip
45510minutenwerte_TU_07419_akt.zip
45610minutenwerte_TU_07420_akt.zip
45710minutenwerte_TU_07424_akt.zip
45810minutenwerte_TU_07427_akt.zip
45910minutenwerte_TU_07428_akt.zip
46010minutenwerte_TU_07431_akt.zip
46110minutenwerte_TU_07432_akt.zip
46210minutenwerte_TU_13670_akt.zip
46310minutenwerte_TU_13674_akt.zip
46410minutenwerte_TU_13675_akt.zip
46510minutenwerte_TU_13696_akt.zip
46610minutenwerte_TU_13700_akt.zip
46710minutenwerte_TU_13710_akt.zip
46810minutenwerte_TU_13711_akt.zip
46910minutenwerte_TU_13713_akt.zip
47010minutenwerte_TU_13777_akt.zip
47110minutenwerte_TU_13965_akt.zip
47210minutenwerte_TU_15000_akt.zip
47310minutenwerte_TU_15207_akt.zip
47410minutenwerte_TU_15444_akt.zip
47510minutenwerte_TU_15555_akt.zip
47610minutenwerte_TU_15813_akt.zip
47710minutenwerte_TU_19171_akt.zip
47810minutenwerte_TU_19172_akt.zip
47910minutenwerte_TU_19207_akt.zip
SourceFiles
 
Upvote 0
1686838962429.png
this problem comes up

1686839047914.png


so to answer your question: i have to do a temperature study where i get data from different loggers wo give me their tmeperature and their latitude and lognitude. based on this my excel workbook automatically gives me back the nearest heater station so that i have a reference.
I do this for my dual study program (I'm working in the pharmaceutical industry)

You don't know how much I aprreciate your help! You are just amazing. There should be more people out there like you!
 
Upvote 0
Whoops -Sorry

You need to make reference in Tool - References in the VBA Editor to the last two ticked libraries on the attached image.
 

Attachments

  • References.JPG
    References.JPG
    79.2 KB · Views: 12
Upvote 0
Nils_Junker said:
View attachment 93648 this problem comes up

View attachment 93649

so to answer your question: i have to do a temperature study where i get data from different loggers wo give me their tmeperature and their latitude and lognitude. based on this my excel workbook automatically gives me back the nearest heater station so that i have a reference.
I do this for my dual study program (I'm working in the pharmaceutical industry)

You don't know how much I aprreciate your help! You are just amazing. There should be more people out there like you!
Click to expand...
Can you also add these two lines right at the top just above the first procedure declaratio..

Dim WbMain As Workbook
Dim WsFileList As Worksheet
 
Upvote 0
You must log in or register to reply here.

Similar threads

N
  • Locked
  • Question Question
VBA code doesn't work
Replies
3
Views
776
Fluff
Fluff
K
  • Question Question
Import Data from Multiple Web Pages
Replies
0
Views
301
Ka001
K
C
  • Solved
Extracting data with VBA macro button from files in designated folder
2 3
Replies
20
Views
1K
Micron
M
H
  • Solved
VBA to import fixed width text file into Excel
Replies
3
Views
944
rlv01
R
W
  • Question Question
How to add "edit text import" to get data from an external text file?
Replies
3
Views
415
waljbt
W

Forum statistics

Threads
1,224,827
Messages
6,181,197
Members
453,022
Latest member
RobertV1609

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top