أحمد العيسى قام بنشر يناير 4, 2020 مشاركة قام بنشر يناير 4, 2020 (معدل) السلام عليكم يوجد فى قاعدة بياناتى كود يتحكم فى تحميل ملف خارجى من المكان الافتراضى My Documents وأريد أن يتم تغير هذا الافتراضى إلى الموضع الذى أريد لهذا الكود أن يفتح عليه وليكن روت القطاع C وهذا هو كود مايكروسوفت مصحوباً بصورة تشغيله: Private Sub btnLocateFile_Click() Dim varItem As Variant Dim strPath As String Dim objFilePicker As FileDialog Dim db As Database Dim rst As DAO.Recordset Dim strUnitNumber As String Set db = CurrentDb() Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) With objFilePicker .AllowMultiSelect = False .ButtonName = "Select" .InitialView = msoFileDialogViewList .Title = "Select File" With .Filters .Clear .Add "Excel Files", "*.xls" End With .FilterIndex = 1 .Show End With If objFilePicker.SelectedItems.Count > 0 Then m_strFileName = objFilePicker.SelectedItems(1) Me.txtImportFile = m_strFileName End If End Sub تم تعديل يناير 4, 2020 بواسطه أحمد العيسى رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 4, 2020 مشاركة قام بنشر يناير 4, 2020 ان شاء الله يكون ما تريد اخى تحت with بتضيف السطر التالى وتحدد فى مكان الفتح - الباث .InitialFileName = "C:\Users\Public" https://developersoapbox.com/add-a-file-selection-dialog-to-your-vba-code/ تقبل تحياتى رابط هذا التعليق شارك More sharing options...
أحمد العيسى قام بنشر يناير 4, 2020 الكاتب مشاركة قام بنشر يناير 4, 2020 تمام أشكرك أخى الفاضل على تفضلك بالإضافة رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 4, 2020 مشاركة قام بنشر يناير 4, 2020 الشكر لله بالتوفيق ان شاء الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان