返回列表下一主題上一主題發帖

[發問] 檔案輸出

ken759727

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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 輸出成記事本檔案，有哪邊是否能改良的

謝謝各位

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

複製代碼

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-6-18 08:09 | 只看該作者

回復 1# ken759727
試試看

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

複製代碼

TOP

ken759727

中學生 Rank: 2

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

3^#

發表於 2012-6-18 20:58 | 只看該作者

回復 2# GBKEE

感謝..路徑問題解決了

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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