[حل شده] آپلود ار اطلاعات از اکسل

[akm1093786]

با سلام
من دو فایل دارم که باید هر روز در یک فایل جدید ادغام بشه که من از دستور
Windows("aaaa.xls").Activate برای اکتیو کردن فایل های مبدا استفاده می کنم .
حالا سوال ؟؟
چیکار کنم که برنامه قبل از آپلود یه جعبه متن باز کنه و اسم فایل مبدا رو ازم بپرسه و سپس اون فایل رو اکتیو کنه ؟

[iranweld]

با سلام

این کد را تست کنید

Private Sub CommandButton1_Click()
 
    Dim lngCount As Long
 
    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
 
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount
 
    End With
 
End Sub 

[akm1093786]

سلام مجدد لطفا این قسمت ار کد برنامه رو ببینید :
Sheets("db").Select
ActiveSheet.Unprotect "akm10937861"
Range("a215000").Select
Selection.ClearContents
Range("a2").Select
Windows("maskan.xls").Activate در این قسمت از کد یه فایل دیگه رو باید باز کنه بعد درون اون فایل عملیات کپی زیر رو انجام بده ...
Sheets("db").Select
ActiveSheet.Unprotect
Range("B2:B15000").Select
Selection.Copy
Range("A2:A15000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2:P15000").Select
Selection.Copy
Windows("vam1397f-t.xlsm").Activate حالا اینجا فایل اصلی رو انتخاب میکنه و عملیات پیست را انجام میده بعد ......
Sheets("db").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("db").Range("b2:b15000").Value = " *ÏÑÇíä Óáæá íÒí ääæíÓíÏ* "
Range("A2:P15000").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Name = "B Zar"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -16776961
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
ActiveWorkbook.Save
Windows("maskan.xls").Activate مجدد اینجا فیال مبدار و انتخاب میکنه و می بنده .....
ActiveWorkbook.Save
ActiveWindow.Close
حالا من میخوام تو این پرسه بجای اینه اسم ثابت بدم به فایل ها کدی باشه که بتونم فایل رو از سیستم انتخاب کنم.
د قبلی خوب بود ولی .....