تبدیل سریعتر فایل متنی در اکسل

Question

Pat تعجب کرد که چگونه می توان نوع داده ستون پیش فرض را از "عمومی" به "متن" برای تمام ستون های یک فایل متنی با کاما تغییر داد. تغییر قالب هر ستون، به خصوص زمانی که تعداد آنها زیاد باشد، در بهترین حالت ممکن است خسته کننده باشد.

متاسفانه هیچ راهی برای تغییر پیش فرض وجود ندارد. با این حال، تغییر انواع داده های ستون را می توان با اعمال کمی از ویژگی های "انتخاب و انتخاب" موجود در اکثر برنامه های ویندوز بسیار آسان تر انجام داد. این مراحل را دنبال کنید:

1. شروع به وارد کردن فایل متنی خود با کاما کنید که معمولاً انجام می دهید.
2. هنگامی که کادر محاوره ای نمایش داده می شود که به شما امکان می دهد انواع داده های ستون را تغییر دهید، اولین ستون جدول را انتخاب کنید.
3. در کادر محاوره ای به سمت راست اسکرول کنید تا آخرین ستون جدول قابل مشاهده باشد.
4. با کلیک بر روی آخرین ستون، کلید Shift را نگه دارید . حالا تمام ستون ها باید انتخاب شوند.
5. نوع داده را به Text تغییر دهید.
6. طبق معمول به واردات ادامه دهید.

اگر روشی حتی سریع‌تر را برای وارد کردن اطلاعات از فایل متنی محدود شده با کاما ترجیح می‌دهید، می‌توانید این کار را با استفاده از یک ماکرو انجام دهید، در نتیجه فیلترهای وارد کردن اکسل را به طور کامل نادیده بگیرید. ماکرو زیر، با عنوان (به اندازه کافی) Import، این کار را انجام می دهد:

Sub Import()
    Open "d:data.txt" For Input As #1
    R = 1
    While Not EOF(1) Scan file line by line
        C = 1
        Entry = ""
        Line Input #1, Buffer
        Length = Len(Buffer)
        i = 1
        While i <= Length split string into cells
            If (Mid(Buffer, i, 1)) = "," Then
                With Application.Cells(R, C)
                    .NumberFormat = "@" Text formatting
                    .Value = Entry
                End With
                C = C + 1
                Entry = ""
            Else
                Entry = Entry + Mid(Buffer, i, 1)
            End If
            i = i + 1
        Wend
        If Len(Entry) > 0 Then
            With Application.Cells(R, C)
                .NumberFormat = "@" Text formatting
                .Value = Entry
            End With
        End If
        R = R + 1
    Wend
    Close #1
End Sub

باید توجه داشته باشید که می توانید خط اول ماکرو را برای نشان دادن نام فایلی که وارد می کنید تغییر دهید. همچنین باید بدانید که این ماکرو روی ساده‌ترین فایل‌های متنی با کاما کار می‌کند. اگر فایل با علامت نقل قول در اطراف هر فیلد ایجاد شده باشد (همانطور که گاهی اوقات اتفاق می افتد)، ماکرو نتایج دلخواه را نخواهد داد و برای جبران گیومه ها باید تغییر داده شود. یا، به عنوان یک جایگزین، می‌توانید به سادگی از جستجو استفاده کنید و پس از وارد کردن اطلاعات، نقل قول‌ها را حذف کنید.