فتح ملف اكسيل اخر من داخل اكسيل باستخدام الماكرو

[usama5]

بسم الله

كيفيه عمل ماكرو يتم فيه فتح ملف اكسيل اخر وانت بداخل ملف اكسيل

وشكرا...

[usama5]

السلام عليكم

هل من مستجيب لسؤالي

[alaaaboulela]

بدون ماكرو تسطيع ان تفعل

وبباسطه عن طريق تخصيص خلية في ورقة العملworksheet او اندكس index في الملف file

عن طريق كتابة اسم الملف المراد فتحه في الخلية او في الدليل ثم الضغط على ctrl+k

معاً سيتم عمل ارتباط تشعبي hyper link مع الملف في اي مكان وبأي بارتيشن في جهازك

فتح صفحه في نفس الملف

فتح ملف في مكان اخر أو في نفس المجلد

[alaaaboulela]

كود ماكرو فتح ملف جديد اخر من صفحة اكسيل

Sub CreateNewWorksheet()

02

03 Dim oSheet As Worksheet, vRet As Variant

04

05 On Error GoTo errHandler

06

07 'creating a new excel worksheet called RawData

08 Set oSheet = Worksheets.Add

09 With oSheet

10 .Name = "RawData"

11 .Cells(1.1).Select

12 .Activate

13 End With

14 Exit Sub

15

16errHandler:

17

18 'if error due to duplicate worksheet detected

19 If Err.Number = 1004 Then

20 'display an options to user

21 vRet = MsgBox("Worksheet called 'RawData' is already exist, " & _

22 "click yes to continue creating new Worksheet and delete the old one, " & _

23 "or click no to go to the old worksheet.", _

24 vbOKCancel, "Duplicate Worksheet")

25

26 If vRet = vbOK Then

27 'delete the old worksheet

28 Application.DisplayAlerts = False

29 Worksheets("RawData").Delete

30 Application.DisplayAlerts = True

31

32 'rename and activate the new worksheet

33 With oSheet

34 .Name = "RawData"

35 .Cells(1.1).Select

36 .Activate

37 End With

38 Else

39 'cancel the operation, delete the new worksheet

40 Application.DisplayAlerts = False

41 oSheet.Delete

42 Application.DisplayAlerts = True

43 'activate the old worksheet

44 Worksheets("RawData").Activate

45 End If

46

47 End If

48

49End Sub

او نسخ الكود التالي لفتح ملف موجود من صفحة الإكسيل مع تغيير او كتابة اسم الملف في الأماكن المشار اليها باللون البرتقالي

Sub OpenExcelFile() Dim vFile As Variant 'Showing Excel Open Dialog Form vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & _ "*.xl*", 1, "Select Excel File", "Open", False) 'If Cancel then exit If TypeName(vFile) = "Boolean" Then Exit Sub End If 'Open selected file Workbooks.Open vFileEnd Sub

[usama5]

شكر اخي العزيز ....

ولكن انا لست ملم جدا بلغه الاكواد فهل من الممكن بعمل حاله عمليه حيث تم تجربه الكود ولكن دون جدوي ...وشكرا للاهتمام

[alaaaboulela]

شكر اخي العزيز ....

ولكن انا لست ملم جدا بلغه الاكواد فهل من الممكن بعمل حاله عمليه حيث تم تجربه الكود ولكن دون جدوي ...وشكرا للاهتمام

السلام عليكم

في الحقيقة وللأمانة العلمية انا الكود ده لاطشه من موقع في بي إكسيل او دوال الفيجوال بيزك في الإكسيل

ولم اقم بتجربته لو عايز الصفحة وفيها شرح الكود انا تحت امرك

http://zaranet.yoo7.com/montada-f22/topic-t401.htm

http://translate.google.com.sa/translate?hl=ar&langpair=en%7Car&u=http://excelvbamacro.com/how-to-open-excel-file-using-macro/

http://excelvbamacro.com/how-to-open-excel-file-using-macro/

[alaaaboulela]

شكر اخي العزيز ....

ولكن انا لست ملم جدا بلغه الاكواد فهل من الممكن بعمل حاله عمليه حيث تم تجربه الكود ولكن دون جدوي ...وشكرا للاهتمام

السلام عليكم

في الحقيقة وللأمانة العلمية انا الكود ده لاطشه من موقع في بي إكسيل او دوال الفيجوال بيزك في الإكسيل

ولم اقم بتجربته لو عايز الصفحة وفيها شرح الكود انا تحت امرك

http://zaranet.yoo7.com/montada-f22/topic-t401.htm

http://translate.google.com.sa/translate?hl=ar&langpair=en%7Car&u=http://excelvbamacro.com/how-to-open-excel-file-using-macro/

http://excelvbamacro.com/how-to-open-excel-file-using-macro/