PDA

View Full Version : อ่านชื่อไฟล์แล้วได้ Path ติดมาด้วย



jaroengd
11 Jun 2007, 14:56
สวัสดีครับ
ผมมีปัญหาคือว่าผมพยายามหาจะเปิดไฟล์ จุดประสงค์ของผมคือผมต้องการเฉพาะชื่อไฟล์เท่านั้น
แต่กลับได้ Path และ Extention มาด้วย ผมพยายามค้นหาจากเน็ตหลายครั้งแล้ว แต่ก็ยังไม่ได้คำตอบ ขออนุญาตรบกวนหาคำตอบให้ผมด้วยครับ
มาโครของผมเขียนดังนี้ครับ
Sub ShowFileName()
Dim SName As String
SName = Application.GetOpenFilename(Title:="Select an inputfile !!!")
If SName = "False" Then GoTo ende
ActiveCell.Value = SName
ende:
End Sub
ขอบคุณมากครับ
จ่าเริง

Nongmod
11 Jun 2007, 15:28
ไม่แน่ใจว่าตรงกับที่คุณ จ่าเริงต้องการหรือเปล่าครับ
SName = Application.GetOpenFilename(Title:="Select an inputfile !!!")
SName = ActiveWindow.Caption 'เมื่อต้องการเฉพาะชื่อ เช่น "Report.xls"

jaroengd
11 Jun 2007, 15:53
ยังไม่ตรงครับ ผมไม่อยากเปิดไฟล์ครับ ผมอยากได้เฉพาะชื่อไฟล์ (ไม่เอา path ไม่เอา extention ) แล้วก็ใส่ชื่อไฟล์นั้ไว้ที่เซลล์ๆหนึ่งครับ
จ่าเริง

อรวีร์
11 Jun 2007, 16:20
ลองดู Code นี้ค่ะ


Sub ShowFileName()
Dim SName As String, SlashAt As Integer
SName = Application.GetOpenFilename(Title:="Select an inputfile !!!")
If SName <> "False" Then
SlashAt = Len(SName)
Do While Mid(SName, SlashAt, 1) <> "\"
SlashAt = SlashAt - 1
Loop
ActiveCell.Value = Mid(SName, SlashAt + 1)
End If
End Sub

jaroengd
11 Jun 2007, 17:54
ได้คำตอบแล้วครับ ขอบคุณมากครับ
ActiveCell.Value = Mid(SName, SlashAt + 1, (Len(SName) - 4) - SlashAt)
ไอเดียเยี่ยมมากๆครับ ผมมัวแต่หลงทางอยู่นาน
ขอบคุณมากครับ
จ่าเริง:)

สมเกียรติ
11 Jun 2007, 18:00
จ่าเริงคราวก่อนอยู่เวียตนาม คราวนี้อยู่อีรัค อีกนานไหมครับจะกลับไทย สบายดีไหม

:D

jaroengd
11 Jun 2007, 19:10
สวัสดีครับ อาจารย์สมเกียรติ์
อาจารย์สบายดีไหมครับ ผมมาทำงานอยู่อิรักได้สองปีกว่าแล้วครับ ผมเองก็ไม่รู้เหมือนกันว่าทำไมดวงผมมันถึงได้ต้องระเหเร่ร่อนไปเรื่อยก็ไม่รู้ มาช่วงแรกๆก็ทำงานอย่างอื่น ไม่ค่อยได้ใช้ Excel ทำให้ลืมๆไป ตอนนี้ต้องวิเคราะห์ข้อมูลเยอะ ก็เลยต้องแกะกันหน่อย ก็ได้ความรู้จากเว็ปนี้แหละครับ ตอนนี้ผมกำลังทำโปรเจคอันหนึ่งอยู่ คือผมจะเก็บข้อมูลไว้ใน Access แล้วผมจะใช้ Excel เป็นตัวติดต่อกับผู้ใช้ ถ้ามีปัญหาอะไรผมก็จะโพสมาถามอีกครับ ผมดีใจมากที่ได้คุยกับอาจารย์อีกครั้ง ถ้ามีอะไรให้ผมรับใช้ ผมยินดีครับ
ด้วยความเคารพอย่างสูง
สำเริง ดำรงเกียรติพงศ์

สมเกียรติ
12 Jun 2007, 09:57
ดีใจที่ได้คุยกันอีกครับ คนที่มีดวงเดินทางไปทำงานต่างประเทศก็น่าสนุกดี แต่ถ้าเดินทางบ่อยๆก็เหนื่อยตรงเวลากำลังเดินทาง ที่อยากกวนให้ช่วยผมหน่อยก็คือ ฝากช่วยคลิกเข้ามาใช้ฟอรัมบ่อยๆ ฝากดูแลฟอรัมให้ด้วยครับ
คงทำได้จากอีรัค ...

:rolleyes:

jaroengd
12 Jun 2007, 15:37
สวัสดีครับ อาจารย์สมเกียรติ
ยินดีครับ ผมจะเข้ามาดูเรื่อยๆ และถ้าเจอกระทู้ไหนไม่เหมาะสม หรือใช้คำไม่สุภาพ ผมจะบอกอาจารย์ครับ
ด้วยความเคารพอย่างสูง
สำเริง ดำรงเกียรติพงศ์