標題: [發問] 檔案輸出 [打印本頁]

---

作者: ken759727    時間: 2012-6-17 22:58     標題: 檔案輸出

本帖最後由 ken759727 於 2012-6-17 22:59 編輯

我是將excel 裡面的數值 輸出成記事本檔案

問題1. excel 裡面顯示 0.01156258 但是輸出成筆記本之後，卻變成 1.15625797922245E-02，請問我要在哪一部分做修改

問題2.請問輸出路徑目前是直接寫在 E:\ ，請問有辦法改成 輸出路徑與excel 路徑相同嗎

問題3.目前功能是把 A10~J311 輸出成 記事本檔案，有哪邊是否能改良的

謝謝各位

1. Sub 輸出()
   
2. Dim i As Integer
   
3. Dim j As Integer
   
4. Dim a As Object
   
5. Sheet1.Activate
   
6. 
   
7. fd = 20 & Range("A2") & "_" & Range("B2") & Range("C2")  '名稱
   
8. Set fs = CreateObject("Scripting.FileSystemObject")
   
9. Set a = fs.CreateTextFile("E:\" & fd & ".TXT", True)[color=Red] '路徑
   
10. 
    
11. i = 311
    
12. j = 10
    
13. 
    
14. For x = 10 To i 'Step 3　'資料範圍
    
15. For y = 1 To j 'Step 1　
    
16. a.write (Cells(x, y))
    
17. If y <= j - 1 Then a.write (vbTab)
    
18. Next
    
19. a.write (vbCrLf)
    
20. Next
    
21. a.Close
    
22. 
    
23. Range("S1") = fd  '測式名稱
    
24. End Sub

複製代碼

---

作者: GBKEE    時間: 2012-6-18 08:09

回復 1# ken759727
試試看

1. fp = ThisWorkbook.Path & "\"                            'Excel的 路徑
   
2. fd = 20 & Range("A2").Text & "_" & Range("B2").Text & Range("C2").Text  '名稱
   
3. Set fs = CreateObject("Scripting.FileSystemObject")
   
4. Set A = fs.CreateTextFile(fp & fd & ".TXT", True) '路徑

複製代碼

---

作者: ken759727    時間: 2012-6-18 20:58

回復 2# GBKEE

感謝..路徑問題解決了

關於 excel 裡面顯示 0.01156258  輸出之後還是變成    1.156258E-02
我有把文字格改成文字  輸出也還是一樣，會顯示科學符號

---

作者: Hsieh    時間: 2012-6-18 23:36

回復 3# ken759727

a.write Cells(x, y).Text

---

作者: ken759727    時間: 2012-6-19 19:29

回復 4# Hsieh

萬分感謝，以解決。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)