[發問] 檔案輸出

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

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

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

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

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

謝謝各位

Sub 輸出()
Dim i As Integer
Dim j As Integer
Dim a As Object
Sheet1.Activate
fd = 20 & Range("A2") & "_" & Range("B2") & Range("C2") '名稱
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("E:\" & fd & ".TXT", True)[color=Red] '路徑
i = 311
j = 10
For x = 10 To i 'Step 3　'資料範圍
For y = 1 To j 'Step 1　
a.write (Cells(x, y))
If y <= j - 1 Then a.write (vbTab)
Next
a.write (vbCrLf)
Next
a.Close
Range("S1") = fd '測式名稱
End Sub

複製代碼

樓主熱帖

ken759727

中學生 Rank: 2

帖子: 19
主題: 12
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-9-27
最後登錄: 2017-12-21

5^#

發表於 2012-6-19 19:29 | 只看該作者

回復 4# Hsieh

萬分感謝，以解決。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 243
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-9

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章