1. vba读取文件乱码
首先建立1个文件名与要修改的rom同名，后缀名为cht的文件，用记事本建立即可 打开该文件 由于每种金手指都有V1和V3这2种版本，所以有 gameshark_v1 gameshark_v3, PAR_v1 PAR_v3 这几种，他们之间并不兼容，使用时要注明 如果你不知道你得到的金手指是哪个版本，请都试试看 输好版本后，按空格，接着输金手指码的名称（随便自定义一个）。 接下来输入金手指码，格式是：AAAAAAAABBBBBBBB 完成1个代码后，按回车，再按1次回车后可继续输入另1个代码，全部完成后保存至记忆棒 下面为1个例子 gameshark_v3MarioInfHP 995fa0d90c6720d2 gameshark_v3MarioMaxHP 21d58888c5d0e432 gameshark_v3InfHlthBat 6f4feadb0581b00e 79af5dc65ce0d2b1 dbbd599544b801c9 65f8924d2fbcd3c4 gameshark_v3StopTimer 2b399ca4ec81f071 在游戏时，在模拟器菜单中可打开或关闭金手指 记住某些金手指即使你关闭了仍然会生效，你要取消的话最好重启游戏。 貌似gpsphone和PSP的GBA模拟器的金手指是通用的~ 可以直接搜索gpsp的金手指来用~ 1. 1)找到EC码,如果是VBA就直接跳到2) 举例:口袋怪兽火红叶绿(386版通用)大师球EC代码:4510A,1,0 比如这个是口袋妖怪绿宝石MONEY不减EC码:5230,0,0,0,0 2)转成VBA码. (EC)4510A,1,0<=>(EC)4510A,0001(注意,这是2字节的) EC代码换成VBA代码: (EC)XXXXXX<---->02XXXXXX(VBA) (EC)04XXXX<---->0300XXXX(VBA) 转换后得到VBA代码: 0300510A:01(这是单字节的,所以需要两行代码来表示2字节) 0300510B:00 如果找到的VBA代码是这样的:0300510B:0001(这是2字节),也请换成上面那样单字节表示 (如果非要写成2字节的形式,就看2楼“进接篇”的相关说明) 用"0"按照下面那样填满(其实这是AR复号码,但是很像VBA码,所以就归类在一个步骤好了) 0300510A:00000001 0300510B:00000000 下载(160.08KB) 2009-7-2814:53这个不需要工具也能靠规律转喔.. 例子1： 3C78,E7,03 在3C78前面加上0200，成为02003C78。 把后面的数反过来写在一起，成为03E7。 然后中间加上冒号就可以了。就成了02003C78:03E7。 3C78,E7,3也是像上面这样转。把3前面加个0，凑成03就可以了。 例子2： 39E2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 前面加上0200，成为020039E2。 然后加上冒号和08，成为020039E2:08 一共是24个地址，每个地址相差1h。 020039E2:08 020039E3:08 020039E4:08 020039E5:08 020039E6:08 …… …… …… …… 020039F9:08 一共24个代码。 例子3： 假如碰上“4xxxx”格式的EC，转的时候前面加的就不是020了，是030。 3)上面转换得到的代码用"0"按照下面那样填满(其实这是AR复号码,但是很像VBA码,所以就归类在一个步骤好了) 0300510A:00000001 0300510B:00000000 4)接下来需要用到这个工具 下载回来后运行 把3)得到的代码粘贴到左边的文本框里 From框里面选RAW,To框里选ARV.1/V.2,OutputFormat里面选XXXXXXXXYYYYYYYY 然后按Proceed最后就能得到一个AR码了~ 嗯,可以直接用了,不用再转换了~ 5)注意AR属于gameshark_v1 2.打开记事本 按照这个格式把金手指复制进去.. 如果是PAR的就写: PAR_v"K""AAA" "BBB" Gameshark的就填: Gameshark_v"K""AAA" "BBB" 其中"AAA"是金手指的名称,貌似填中文就会变乱码,建议填英文 "BBB"就是你的金手指了 "K",每种金手指都有V1和V3这2种版本，所以有gameshark_v1gameshark_v3PAR_v1PAR_v3这几种, 他们之间并不兼容, 使用时要区别~~ 比如下面是绿宝石买大师球的金手指 gameshark_v1MASTERBALL 09693CBC81BCA594 B001D0136485DBC3 注意不用带双引号 要多个金手指就换行按格式再填一个~ 还有:貌似如果金手指数量超过了8个,gpsphone会错误退出喔.. 3.把金手指保存为XXX.cht XXX就填你的ROM的名字,不带后缀. 比如ROM的名字为口袋妖怪绿宝石.gba,那么金手指名字就为口袋妖怪绿宝石.cht 4.把金手指用WINSCP或91助手或其它工具上传到/var/mobile/Media/ROMs/GBA目录下和ROM放在一起. 5.运行游戏后按MENU->ToggleLoadedCheats按钮,在列表中选你的金手指就能用了~ 附:口袋妖怪绿宝石386的大师球,奇异甜食,金珠金手指 使用方法:在道吉镇的商店买物品,选好购买数量后,等服务员问你是否要买下道具时,不要急着按A,先运行金手指,买下后再把金手指关掉就好了~ gameshark_v1MASTERBALL 09693CBC81BCA594 B001D0136485DBC3 gameshark_v1Sweets 23F212DD11E95831 B001D0136485DBC3 gameshark_v1Gold 5FC752346BAB2F88 B001D0136485DBC3
2. vba 读取文件
例子：Sub GetData() Dim Xl As Object Set Xl = CreateObject("MiCROSOFT.XMLHTTP") Xl.Open "GET", "http开头的网络地址.txt", False Xl.send "" Range("A1") = Xl.responseTextEnd Sub
3. vba读取excel数据但不打开文件
方法/步骤如下
1
我们在D盘下的test文件夹新建了一个test.xlsx文件，并在文件中的工作表中A1单元格输入一些信息。
2
保存并关闭上面新建的文件，在另外一个Excel文件中打开Visual Basic，添加模块和过程。
3
在过程中输入打开文件的代码：
Workbooks.Open：在Workbooks表示文件，Open是打开的动作。
如果仅执行以上代码，会报错。
4
因此，打开文件夹的动作后面需要加上必要的参数：
Filename:="D:\test\test.xlsx"：找到D盘test文件夹下的文件。
5
执行以上代码后，就可以打开文件test.xlsx。
6
打开文件后，我们对文件做一些数据操作，如在A2单元格输入Hi World!
代码ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"：当前活跃的文件下的第一张工作表下的A2单元格输入信息。
7
再次执行以上代码后，可以看到文件内容已更新
4. vba读取excel文件名
获取：
Sub get_sheetname()
sheetname = ActiveWindow.ActiveSheet.Name
Debug.Print sheetname(即时窗口打印,使用Ctrl + G能调出即时窗口,MsgBox消息盒子)
End Sub
5. vba读取当前打开的excel
在有文件的文件夹中新建一个excel 工作簿，打开工作簿，按Alt + F11，把下面的代码复制进去，按F5执行。
代码会复制工作文件的前300个字符到excel中。
子测试（）
Dim i％，myName $，myPath $，AppWord As Object
Set AppWord = CreateObject（“Word.Application”）
myPath = ThisWorkbook.Path＆“\”
myName = Dir（myPath＆“* .doc *”）
With ActiveSheet
.Columns（“A：B”）。ClearContents
Do my myName <>“”
AppWord.Documents.Open Filename：= myPath＆myName
i = i +
1.Cells（i，1）= myName
.Cells（i，2） = AppWord.ActiveDocument.Range（开始：= 0，结束：= 300）.Text
AppWord.ActiveDocument。关闭False
myName = Dir
Loop
End With
AppWord.Quit
Set AppWord = Nothing
MsgBox“已完成。”
End Sub
6. excel vba 读取文件
1.用Shell函数打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Shell "explorer.exe " & sPath, vbMaximizedFocus
End Sub
Shell函数是vba内置的函数，使用起来非常方便。它可以直接运行各种exe程序，同时附带参数运行。
使用Shell函数还可以直接运行Python打包后的exe程序，从而借助Python的强大功能助推VBA。
在本例中，Shell函数通过调用文件资源管理器explorer.exe直接打开指定的文件夹，其中 vbMaximizedFocus表示打开的时候最大化显示。
方法二：用Shell对象打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Dim oShell As Object
Set oShell = VBA.CreateObject("shell.application")
With oShell
.Open (sPath)
End With
End Sub
其实这个原理和Shell是一样的，但是Shell对象提供了自动化接口，功能更全，不仅可以打开文件夹，还可以做很多操作电脑的事情。
比如切换到桌面、打开运行对话框、关闭电脑等等，如下所示
Sub exceloffice()
Set oShell = CreateObject("shell.application")
With oShell
'切换到桌面
.ToggleDesktop
'打开运行对话框
.FileRun
'关闭电脑，记得保存文件
.ShutdownWindows
End With
End Sub
7. vba 读excel
代码复制到 报表 代码窗口，不要弄反了哦Sub 获取数据()x = WorksheetFunction.Match([A1], Sheets("数据").Range("B:B"), 0)arr = Sheets("数据").Range("d" & x & ":" & "h" & x)[b4].Resize(1, 5) = arr[b5] = Sheets("数据").Cells(x, "i")End Sub或Sub 获取数据()y = WorksheetFunction.CountIf(Sheets("数据").Range("B:B"), [a1])If y = 0 ThenMsgBox "日期输入错误"Exit SubEnd Ifx = WorksheetFunction.Match([a1], Sheets("数据").Range("B:B"), 0)arr = Sheets("数据").Range("d" & x & ":" & "h" & x)[b4].Resize(1, 5) = arr[b5] = Sheets("数据").Cells(x, "i")End Sub
- 相关评论
- 我要评论
-
