Search results

  1. Z

    Get File name without Extension

    Thanks for your help
  2. Z

    Get File name without Extension

    hello friends Get File name without Extension sample of the file name is 02.14.2021 (1).xls any idea or solution Thanks in advance and your help is appreciated
  3. Z

    Solved text (Tab Delimited)(*.txt)

    xls but it corrupts Friends Why does the loop not work Exit the loop There is a lot of files Option Compare Database Dim sFolder As String Private Sub Command0_Click() SelectFolder Dim strFileName As String 'TODO: Specify path and file spec Dim strFolder As String: strFolder = sFolder...
  4. Z

    Solved text (Tab Delimited)(*.txt)

    error also DoCmd.TransferText acLinkDelim, , "SalesByHourSummary", strFileName, True Table Does not exist
  5. Z

    Solved text (Tab Delimited)(*.txt)

    I can open the file in excel
  6. Z

    Solved text (Tab Delimited)(*.txt)

    The wizard is unable to access information in the file please check that the file exists and is in the correct format The import wizard in access says that I can't reach to spec page I try to find the solution by opening it in Excel and saving it in a good format
  7. Z

    Solved text (Tab Delimited)(*.txt)

    I need now Loop throug files one by one when try to import it as text delimited this message appears the file format and extension of don't match. the file could be corrupted or unsave. unless you trust its source , don't open it . do you want to open it anyway maybe is exported form old...
  8. Z

    Solved text (Tab Delimited)(*.txt)

    Here is the code Open Excel File Sub OpenExcel() Dim objExcelApp As Excel.Application Dim wb As Excel.Workbook Set objExcelApp = Excel.Application Set wb = objExcelApp.Workbooks.Open("E:\55.xls") objExcelApp.Visible = True End Sub
  9. Z

    Solved text (Tab Delimited)(*.txt)

    Thanks for your reply I'm start step by step First Step here select folder Sub SelectFolder() Dim sFolder As String ' Open the select folder prompt With Application.FileDialog(4) If .Show = -1 Then ' if OK is pressed sFolder = .SelectedItems(1) End If...
  10. Z

    Solved text (Tab Delimited)(*.txt)

    Hello frinds I want VBA code open all files in a folder with extension txt (Tab Delimited)(*.txt) and save it again as xls or xlsx in backend process Thank you so much
  11. Z

    Please suggest solution outofbox

    The Code error message
  12. Z

    Please suggest solution outofbox

    Thank you so much for your efforts I run the code, but this error appears to me ----- another question what should I put on this const Const MenuItemLabel = "Menu Item Name"
  13. Z

    Split Date

    Hello friends I want to split this date string in to vale start date and end date From 1/1/2021 To 1/31/2021 Start Date 1/1/2021 end Date 1/31/2021
  14. Z

    Please suggest solution outofbox

    Can you please write the code for me if possible Thank you so much
  15. Z

    Please suggest solution outofbox

    Hello I have 2 column one column is full with text and the other column is blank the column full is contain type of food and under type of food there is category for example breakfast , lunch or dinner Foods ---------------- juice apple tea beans ==== breakfast category bull meat steak...
  16. Z

    Split Value

    Done but change 4 to 3 (y) (y) (y)
  17. Z

    Split Value

    Hello friends I import data from excel column like this From 7:00:00 AM To 7:59:59 AM I want to split this value to 2 column Start Time 7:00:00 AM End Time 7:59:59 AM
  18. Z

    Fill Down group of records with exist time

    (y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)(y)
  19. Z

    Fill Down group of records with exist time

    Hello I want fill down time from top to bottom using VBA or Query for every group of records
Back
Top Bottom