Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #26915 Des1gnR őstag Des1gnR #26914
    Új Válasz #26915
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Des1gnR

    őstag

    válasz Des1gnR #26914 üzenetére

    Ezt visszaalakítva számmá, már tényleg azt kapom amit kell, dzsír :C

    Itt a kód, amivel a meg sem nyitott CSV-ben kicserélem a pontot vesszővé. ;)
    Sub CSVFormaz()

    Dim MyPath As String
    Dim MyFile As String
    Dim Wkb As Workbook
    Dim Cnt As Long

    Application.ScreenUpdating = False

    MyPath = "C:\Users\Public\Documents\" 'change the path accordingly

    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

    MyFile = Dir(MyPath & "arlista_temp.csv")

    Cnt = 0
    Do While Len(MyFile) > 0
    Cnt = Cnt + 1
    Set Wkb = Workbooks.Open(MyPath & MyFile)

    Wkb.Worksheets("sheet_arlista_temp").Select
    Columns("C:C").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

    Wkb.Close savechanges:=True
    MyFile = Dir
    Loop

    If Cnt > 0 Then
    MsgBox "Completed...", vbExclamation
    Else
    MsgBox "No files were found!", vbExclamation
    End If

    Application.ScreenUpdating = True

    End Sub

Új hozzászólás Aktív témák