:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#15

by suka » Sat Jan 07, 2017 10:12 am

ได้ตรงตามที่ต้องการเลยค่ะ ขอบคุณมากค่ะอาจารย์ :thup: :thup:

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#14

by snasui » Sat Jan 07, 2017 9:58 am

:D ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

'Other code...
ActiveSheet.UsedRange.Copy
formBook.Sheets("Form").Activate
formBook.Sheets(Range("c9").Value).Activate
Range("A1").Select
ActiveSheet.Paste
'Other code..

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#13

by suka » Sat Jan 07, 2017 9:39 am

ตอนที่เกิด Error อยู่ที่กำลังอยู่ที่ชีท Form ค่ะอาจารย์

ความต้องการ
ถ้าเซลล์ C9 เป็น "Database" ให้โค้ดเปิดไฟล์ OP_Share แล้ว Copy ข้อมูลชีท Sheet1 มาวางที่ชืท Database ไฟล์ Form แต่ถ้าเป็น "AR_Share" ให้โค้ดเปิดไฟล์ AR_Share และ Copy ข้อมูลชีท Sheet1 มาวางที่ชืท Ar_sh ไฟล์ Form ค่ะ ไม่ทราบว่าสามารถทำแบบนี้ได้ไหมค่ะ
Attachments
untitled (Small).JPG
untitled (Small).JPG (36.11 KiB) Viewed 350 times

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#12

by snasui » Sat Jan 07, 2017 8:59 am

:D ตอนที่เกิด Error อยู่ที่กำลังอยู่ที่ Sheet ไหนและนี้ C9 คือค่าใดครับ

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#11

by suka » Sat Jan 07, 2017 8:52 am

อาจารย์คะ Code ฟ้องตามรูปแนบค่ะ
Attachments
untitled (Small).JPG
untitled (Small).JPG (15.7 KiB) Viewed 357 times

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#10

by snasui » Sat Jan 07, 2017 7:05 am

suka wrote:ขอความช่วยเหลือค่ะ ต้องการปรับ formBook.Sheets("c9").Activate โค้ดนีให้เปลี่ยนตามค่าในเซลล์ C9 ไฟล์ Form ชีท Form เพื่อใช้แทน Code formBook.Sheets("Database").Activate นี้ค่ะ
:D ตัวอย่างการปรับ Code ครับ

formBook.Sheets(Range("c9").Value).Activate

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#9

by suka » Fri Jan 06, 2017 8:05 pm

ขอความช่วยเหลือค่ะ ต้องการปรับ formBook.Sheets("c9").Activate โค้ดนีให้เปลี่ยนตามค่าในเซลล์ C9 ไฟล์ Form ชีท Form เพื่อใช้แทน Code formBook.Sheets("Database").Activate นี้ค่ะ

ความต้องการ
ถ้าเซลล์ C9 เป็น "Database" ให้โค้ดเปิดไฟล์ OP_Share แล้ว Copy ข้อมูลชีท Sheet1 มาวางที่ชืท Database ไฟล์ Form แต่ถ้าเป็น "AR_Share" ให้โค้ดเปิดไฟล์ AR_Share และ Copy ข้อมูลชีท Sheet1 มาวางที่ชืท Ar_sh ไฟล์ Form ค่ะ

เพื่อใช้กับ Code ทั้งชุดด้านล่างนี้ค่ะ ควรปรับอย่างไรเพื่อเปิดไฟล์ตามค่าในเซลล์ B9 ไฟล์ Form ได้คะ

Code: Select all

Sub OpenCopy() 
        Dim wbOpen As Boolean
        Dim wb As Workbook
        Dim formBook As Workbook
        Set formBook = ThisWorkbook
        For Each wb In Workbooks
            If wb.Name = Range("b9").Value Then
                wbOpen = True
            End If
        Next wb
        If Not wbOpen Then
            Set wb = Workbooks.Open("C:\Documents and Settings\Administrator\Desktop\ตัวอย่าง\" & Range("b9").Value & ".xlsx", False, False)
        End If
        ActiveSheet.UsedRange.Copy
        'formBook.Sheets("Database").Activate
        formBook.Sheets("c9").Activate
        Range("A1").Select
        ActiveSheet.Paste
        Sheets("Form").Select
        Application.CutCopyMode = False
        Application.Goto reference:="OFFSET(R1C1,COUNTA(C1),0)"
        ActiveWorkbook.Save
        wb.Close False
End Sub
Attachments
Form.xlsm
(18.49 KiB) Downloaded 24 times
OP_Share.xlsx
(8.04 KiB) Downloaded 21 times
AR_Share.xlsx
(8.04 KiB) Downloaded 18 times

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#8

by suka » Wed Nov 23, 2016 9:54 am

niwat2811 wrote:ลองปรับ Code เป็นแบบนี้ดูครับว่าใช้ได้ตามต้องการไหม

โค้ด: เลือกทั้งหมด
Sub Open2559()
Workbooks.Open Range("B5").Value & ".xlsx"
End Sub
Code คุณ niwat2811 ให้มา สามารถนำมาปรับตามตัวอย่างด้านล่างใช้ได้แล้วค่ะ ก่อนหน้านี้ไม่ได้เป็นเพราะไม่เข้าใจการใช้ค่ะ ขอบคุณมากค่ะ

Code: Select all

Sub Open2559()
        Workbooks.Open Range("B3").Value & Range("B5").Value & ".xlsx"
End Sub
Attachments
Sm.JPG
Sm.JPG (16.19 KiB) Viewed 390 times

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#7

by suka » Mon Nov 21, 2016 5:15 pm

ขอบคุณมากค่ะคุณ niwat2811
DhitiBank wrote:หลัง Workbook.Open อาจต้องเพิ่ม "C:\Documents and Settings\Administrator\Desktop\Test\" & Range("b5").value & ".xlsx" ครับ
ขอบคุณมากค่ะคุณ DhitiBank ได้ตรงตามต้องการค่ะ

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#6

by DhitiBank » Mon Nov 21, 2016 3:44 pm

หลัง Workbook.Open อาจต้องเพิ่ม "C:\Documents and Settings\Administrator\Desktop\Test\" & Range("b5").value & ".xlsx" ครับ

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#5

by niwat2811 » Mon Nov 21, 2016 3:21 pm

ผมลองที่เครื่องของผมก็ไม่พบปัญหาใด ๆ นะครับ คงต้องรอให้ท่านอื่นมาช่วยตอบแล้ว

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#4

by suka » Mon Nov 21, 2016 3:17 pm

ยังไม่ได้ค่ะคุณ niwat2811 Code ฟ้องตามรูปแนบค่ะ
Attachments
Menu.xlsm
(21.38 KiB) Downloaded 16 times
Small.JPG
Small.JPG (24 KiB) Viewed 408 times

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#3

by niwat2811 » Mon Nov 21, 2016 3:05 pm

ถ้าไม่ใช้ปุ่มกดลองปรับ Code เป็นแบบนี้ดูครับ (นำไปวางที่ชีท Menu)

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Workbooks.Open Range("B5").Value & ".xlsx"
End Sub

Re: VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#2

by niwat2811 » Mon Nov 21, 2016 2:59 pm

ลองปรับ Code เป็นแบบนี้ดูครับว่าใช้ได้ตามต้องการไหม

Code: Select all

Sub Open2559()
        Workbooks.Open Range("B5").Value & ".xlsx"
End Sub

VBA เปิดไฟล์โดยใส่ชื่อไฟล์ที่เซลล์ B5 แทนการใช้ปุ่ม

#1

by suka » Mon Nov 21, 2016 2:38 pm

เรียนอาจารย์และท่านผู้รู้ค่ะ

ต้องการเปิดไฟล์ด้วยการกรอกชื่อไฟล์ที่เซลล์ B5 แทนการใช้กดปุ่มเปิด Code เปิดตามแนบไฟล์ควรปรับอย่างไรคะ

Code: Select all

Sub Open2559()
        Set wb = Workbooks.Open("C:\Documents and Settings\Administrator\Desktop\Test\2559.xlsx", False, False)
End Sub
Attachments
Menu.xlsm
(20.85 KiB) Downloaded 28 times

Top